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AN IMPORTANT NOTE 

The publisher and authors have made every effort to assure 
that the computer programs are accurate and complete. How- 
ever, this publication is prepared for general readership, and 
neither the publisher nor the authors have any knowledge about 
or ability to control any third party's use of the programs and 
programming information. There is no warranty or representa- 
tion by either the pubUsher or the authors that the programs or 
programniing information in this book will enable the reader or 
user to achieve any particular result. 



Preface 



You have bought yourself a Commodore 64 Computer (or 
maybe you just have access to one at school or work). You will 
soon find that the most frequent question you are asked goes 
something Uke this: "Oh, you got a computer, eh? Uh. . .what 
are you going to do with it?" 

Your answer, of course, depends on your own particular 
situation. Maybe you got it for mathematical work, or for your 
business, or for home usage, or to enable you to learn more 
about computers. Maybe you got it for a teaching/learning tool 
or for playing games. 

Even if you got the computer specifically for only one of these 
reasons, you should not neglect the others. The computer is such 
a powerful tool that it can be used in many different ways. If it is 
not being used for its "intended" function right now, why not 
make use of it in some other way? 

The Commodore 64 is so small and portable that you can, say, 
take it home from work over the weekend and let the kids play 
educational games. They will have fun and learn a lot. After 
they go to bed, you can use it to help plan your personal 
finances. Or, you can let your guests at a party try to outsmart 
the computer (or each other) at some fascinating games. The 
possibilities go on and on. 

All these things can be done with the Commodore 64, but it 
cannot do any of them without the key ingredient— a computer 
program. People with little or no exposure to computers may be 
in for a surprise when they learn this. A computer without a pro- 
gram is like a car without a driver. It just sits there. 
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So you ask, "Where can I get some programs to do the things I 
want my computer to do?" Glad you asked. There are several 
alternatives. 

1 . Hire a computer programmer. If you have a big budget, this 
is the way to go. Good programmers are expensive and hard 
to find (and you will not know for sure if they're really good 
until after the job is finished). Writing a couple of programs 
that are moderately complex will probably cost you more 
than you paid for the computer itself. 

2. Learn to program yourself. This is a nice alternative, but it 
takes time. There are lots of programming books avail- 
able—some are good, some are not so good. You can take 
courses at local colleges. If you can afford the time and you 
have a fair amount of common sense and inner drive, this is 
a good solution. 

3. Buy the programs you want. This is cheaper than hiring 
your own programmer because all the buyers share the cost 
of writing the programs. You still will not find it very cheap, 
especially if you want to accumulate several dozen pro- 
grams. Each program might cost anywhere from a few 
dollars to several hundred dollars. The main problem is that 
you cannot be sure how good the programs are, and, since 
they are generalized for all possible buyers, you may not be 
able to easily modify them to do exactly what you want. 
Also, they have to be written in a computer language that 
your computer understands. Even if you find a program 
written in the BASIC language, you will soon learn that 
Commodore BASIC is not the same as other versions. 
Variations between versions of the same language typically 
result in the program not working. 

This book gives you the chance to take the third alternative at 
the lowest possible cost. If you divide the cost of the book by the 
number of programs in it (use your computer if you like), you 
will find that the cost per program is amazingly low. Even if 
there are only a few programs in the book that will be useful to 
you, the cost is pretty hard to beat. 

Just as important is the fact that these programs are written 
specifically for your Commodore 64. If you type them in exactly 
as shown, they will work! No changes are needed. In addition. 
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we show you exactly what to change in order to make some sim- 
ple modifications that may suit your taste or needs. Plus, if you 
have learned a little about BASIC, you can go even further and 
follow the suggestions about more extensive changes that can be 
made. This approach was used to try to make every program 
useful to you, whether you are a total beginner or an old hand 
with computers. 

But enough of the sales pitch. Our main point is that we feel a 
computer is an incredibly flexible machine, and it is a shame to 
put it to only one or two limited uses and let it sit idle the rest of 
the time. We are giving you a pretty wide range of things to do 
with your computer, and we are really only scratching the 
surface. 

So open your eyes and your mind! Play a mental game against 
the computer (WARI, JOT). Evaluate your next financial deci- 
sion (LOAN, DECIDE). Expand your vocabulary or improve 
your reading speed (VOCAB, TACHIST). Solve mathematical 
equations (DIFFEQN, SIMEQN). 

But please, don't leave your computer asleep in the corner too 
much. Give it some exercise. 
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How to Use This Book 



Each chapter of this book presents a computer program that 
runs on a Commodore 64 Computer. Each chapter is made up of 
eight sections that serve the following functions: 

1. Purpose: Explains what the program does and why you 
might want to use it. 

2. How To Use It: Gives the details of what happens when you 
run the program. Explains your options and the meanings of 
any responses you might give. Provides details of any limita- 
tions of the program or errors that might occur. 

3. Sample Run: Shows you what you will see on the screen 
when you run the program. 

4. Program Listing: Provides a "listing" (or "print-out") of the 
BASIC program. These are the instructions to the computer 
that you must provide so it will know what to do. You must 
type them in extremely carefully for correct results. 

5. Easy Clianges: Shows you some very simple changes you can 
make to the program to cause it to work differently, if you 
wish. You do not have to understand how to program to 
make these changes. 

6. Main Routines: Explains the general logic of the program, 
in case you want to figure out how it works. Gives the 
BASIC line numbers and a brief explanation of what each 
major portion of the program accomplishes. 

7. Main Variables: Explains what each of the key variables in 
the program is used for, in case you want to figure out how 
it works. 
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8. Suggested Projects: Provides a few ideas for major changes 
you might want to make to the program. To try any of 
these, you will need to understand BASIC and use the infor- 
mation provided in the previous two sections (Main 
Routines and Main Variables). 

To use any of these programs on your Commodore 64, you 
need only use the first four sections. The last four sections are 
there to give you supplementary information if you want to 
tinker with the program. 

RECOMMENDED PROCEDURE 

Here is our recommendation of how to try any of the pro- 
grams in this book: 

1 . Read through the documentation that came with the Com- 
modore 64 to learn the fundamentals of communication 
with the computer. This will teach you how to turn the com- 
puter on, enter a program, correct mistakes, run a program, 
etc. 

2. Pick a chapter and read Section 1 ("Purpose") to see if the 
program sounds interesting or useful to you. If not, move 
on to the next chapter until you find one that is. If you are a 
beginner you might want to try one of the short "Miscel- 
laneous Programs" first. 

3. Read Sections 2 and 3 of the chapter ("How To Use It" and 
"Sample Run") to learn the details of what the program 
does. 

4. Enter the NEW command to eliminate any existing program 
that might already be in your computer's memory. Using 
Section 4 of the chapter ("Program Listing"), carefully enter 
the program into the computer. Be particularly careful to 
get all the punctuation characters right (i.e., commas, semi- 
colons, colons, quotation marks, etc.). 

5. After the entire program is entered into the computer's 
memory, use the LIST command to display what you have 
entered so you can double check for typographical errors, 
omitted lines, etc. Don't mistake a semicolon for a colon, or 
an alphabetic I or O for a numeric 1 or (zero). Take a min- 
ute to note the differences in these characters before you 
begin. 
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6. Before trying to RUN the program, use the SAVE "name" 
command to save the program temporarily on cassette. This 
could prevent a lot of wasted effort in case something goes 
wrong (power failure, computer malfunction, etc.). If the 
computer "hangs up" when you enter RUN, you can simply 
reset it, reload the program from cassette, and look for typ- 
ing errors. 

7. Now RUN the program. Is the same thing happening that is 
shown in the Sample Run? If so, accept our congratulations 
and go on to step 9. If not, stay cool and go to step 8. 

8. If you got a SYNTAX ERROR in a line, LIST that line and 
look at it closely. Something is not right. Maybe you inter- 
changed a colon and a semicolon. Maybe you typed a 
numeric 1 or instead of an alphabetic I or O. Maybe you 
misspelled a word or omitted one. Keep looking until you 
find it, then correct the error and go back to step 7. 

If you got some other kind of error message, consult the 
computer's documentation for an explanation. Keep in mind 
that the error might not be in the line that is pointed to by 
the error message. It is not unusual for the mistake to be in a 
line immediately preceding the error message line. Another 
possibility is that one or more lines were omitted entirely. In 
any event, fix the problem and go back to step 7. 

If there are no error messages, but the program is not do- 
ing the same thing as the Sample Run, there are two possibil- 
ities. First, maybe the program isn't supposed to do exactly 
the same thing. Some of the programs are designed to do un- 
predictable things to avoid repetition (primarily the game 
programs and graphic displays). They should be doing the 
same types of things as the Sample Run, however. 

The second possibility is that you made a typing error that 
did not cause an error message to be displayed, but simply 
changed the meaning of one or more lines in the program. 
This can be a little tricky to find, but you can usually narrow 
it down to the general area of the problem by noting the 
point at which the error takes place. Is the first thing dis- 
played correct? If so, the error is probably after the PRINT 
statement that caused the first thing to be displayed. Look 
for the same types of things mentioned before. Make the 
corrections and go back to step 7. 
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9. Continue running the program, trying to duplicate the Sam- 
ple Run. If you And a variation that cannot be accounted 
for in the "How To Use It" section of the chapter, go to 
step 8. Otherwise, if it seems to be running properly, SAVE 
the program on cassette. 
10. Read Section 5 of the chapter ("Easy Changes"). Try any of 
the changes that look interesting. If you think the changed 
version is better, SAVE it on cassette, too. You will prob- 
ably want to give it a slightly different title in the first REM 
statement to avoid future confusion. 

A NOTE ON THE PROGRAM LISTINGS 

A line on the screen of the Commodore 64 is 40 characters 
wide. However, the printer that was used to create the Program 
Listing section of each chapter prints lines up to 80 characters 
long. When typing into your computer a line longer than 40 
characters, simply type the entire line as shown in the listing fol- 
lowed by the RETURN key. Don't be fooled by the fact that the 
cursor on your Commodore 64 jumps down to the next line after 
you enter the 40th character— it's just one long line until you 
press RETURN. 
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Section 1 
Applications Programs 



INTRODUCTION TO APPLICATIONS PROGRAMS 

Good practical applications are certainly a prime use of per- 
sonal computers. There are a myriad of ways the Commodore 64 
can help us to do useful work. Here are eight programs for use 
around the home or business. 

Financial considerations are always important. LOAN will 
calculate interest, payment schedules etc. for mortgages, car 
loans, or any such business loan. Do you ever have trouble 
balancing your checkbook(s)? CHECKBOOK will enable you to 
rectify your monthly statements and help you find the cause of 
any errors. With the many types of investments available today, 
there is often confusion about their true annual yields. AN- 
NUAL will make sure you don't have this problem any more. 

Perhaps you find yourself compiling various lists at home or 
work. These could be lists of names, words, phrases, etc. The 
chore of alphabetizing such a list is duck soup for SORTLIST. 

Fuel usage is a constant concern for those of us who drive. 
MILEAGE will determine and keep track of a motor vehicle's 
general operating efficiency. 

The tedium of analyzing questionnaires and examinations can 
be greatly relieved with the aid of your computer. In particular, 
teachers and market researchers should find QUEST/EXAM 
useful. 

Often we are faced with difficult decisions. DECIDE trans- 
forms the Commodore 64 into a trusty advisor. Help will be at 
hand for any decision involving the selection of one alternative 
from several choices. 
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Before anything else, you might want to consult BIO- 
RHYTHM each day. Some major airlines, and other industries, 
are placing credence on biorhythm theory. If you agree, or "just 
in case," simply turn on your computer and load this program. 



ANNUAL 



PURPOSE 

Suppose you put $1000.00 into an investment that pays ten 
percent interest. How much interest will you earn by the end of 
one year? 

Generally the answer is not simply $100.00 (the interest rate 
times the principal). The amount of interest earned per year 
depends on how often the interest is compounded (calculated) 
and paid. If it is done only once at the end of the year, you really 
do earn only ten percent. But if it is done more often (each 
month, for example) you earn more. This is because the interest 
after the first month begins earning interest too. 

This program shows you the annual yield of any interest rate 
for various compounding techniques, assuming that the interest 
is added to the principal as it is calculated. Be aware that some 
savings institutions use different techniques for calculating an- 
nual yield. Their published figures may differ from the ones cal- 
culated here. 

HOW TO USE IT 

Simply enter the interest rate you want to evaluate. The pro- 
gram shows the annual yield for annual, semi-annual, quarterly, 
monthly, weekly, and daily compounding. Then it asks you for 
another interest rate to evaluate. If you have no more, enter zero 
to end the program. 

Due to the way numbers are represented inside the computer, 
you may occasionally notice the last significant digit to be inac- 
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curate. Fortunately, there is seldom any need to know the an- 
nual yeild beyond two or three decimal places, so this should be 
no problem. 

The calculated answers come out almost instantaneously for 
most compounding techniques, but daily compounding takes a 
little longer to compute (about 3 or 4 seconds). 

The Easy Changes section below shows how to send the out- 
put to a printer, if you have one. It also shows how to add other 
compounding techniques to the program. 

SAMPLE RUN 




The program asks what interest rate should be evaluated. The operator 
provides it, and the program shows the annual yield for six different 
compounding techniques. 

PROGRAM LISTING 

REflDV. 

1H0 f;:em: rnhurl interest 

j IPi rem: COPVRIGHT 1983 

111 rem: thm RUGG.. PHIL FELDMRH. flHD 

112 REM: WESTERN SYSTEMS GROUP 
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1 30 CLR : PR I NT CHR* ■:: 1 4? > 

150 PRINT"** RNNUPIL INTEREST 

160 PRINT 

170 I NPUT "INTEREST RRTE " ; R 
180 PRINT: IF R=0 THEN ENS 
190 PRINT" INTEREST RRTE =".:R 
200 PRINT 

£ 1 PR I NT " COMPCMJurjED " ; TRB CI 6 > 
£20 PRlNT"RNNUflL VI ELD" 

230 PRINT" ".;TRBa6>; 

240 PRINT" " 

250 RESTORE 

260 RERD N$..N 

£70 IF m- = "END" THEN 480 

280 PRINT N*.;TRBa5) 

290 T = R/i00:W = T/H-S - 1 

300 FOR J = 1 TO N 

310 S = S -I- S*W:NEXT 

320 S = < S- 1 > * 1 00 

330 PRINT S 

340 GOTO 260 

400 PRINT 

410 GOTO 170 

800 EHIJ 

900 DflTfl RI-IHURLLV .. 1 

910 DRTR SEr'1I-flNNLIflLLV..£ 
920 DRTR QURRTERLV ..4 
930 DRTR MONTHLY . 12 

940 DRTR WEEKLV .52 

959 DRTR DRILV ..365 

960 DRTR END ..999 

RERDV. 



EASY CHANGES 

1. If you have a printer, you can send the output to it very eas- 
ily. Just add these lines: 

185 OPEN 1,4:CMD 1 
405 PRINT#l:CLOSE 1 

2. Adding another compounding technique is done by inserting 
another DATA statement between lines 900-950. For exam- 
ple, bimonthly compounding would mean once every two 
months, or six times per year. To include it, add this 
statement: 

925 DATA BIMONTHLY,6 
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3. The program can be changed to make calculations for a 
whole series of interest rates without stopping. If you have a 
printer, you may want to create your own reference tables. 
To do so for, say, interest rates from 10 to 12 percent in in- 
crements of one-quarter percent, make these changes: 

170 FOR R= 10 TO 12 STEP .25 
410 NEXT 

MAIN ROUTINES 



130 InitiaUzes variables. 

150-160 Displays title. 

170-180 Gets interest rate. Ends program if zero. 

190-240 Displays rate and column headings. 

250-410 Makes calculation and displays result for each com- 
pounding technique. 

900-960 DATA statements for each compounding techni- 
que. 

MAIN VARIABLES 

R Interest rate supplied by operator (as percentage). 

N$ Name of compounding technique. 

N Number of times per year to compound. 

T Interest rate (as decimal). 

W Interest rate per compounding period. 

S Sum of interest earned for the year. 

J Loop variable. 



SUGGESTED PROJECTS 

1. Take inflation and taxes into account and show the "real" 
gain or loss of the investment. For example, a person in a 50 
percent tax bracket during a year of nine percent inflation 
needs to make about an 18 percent annual yield just to break 
even at the end of the year. 

2. Change the program to display (or print) a table of annual 
yields. Show a column for each compounding technique, 
and a row for each interest rate. 



BIORHYTHM 



PURPOSE 

Did you ever have one of those days when nothing seemed to 
go right? All of us seem to have days when we are clumsy, feel 
depressed, or just cannot seem to force ourselves to concentrate 
as well as usual. Sometimes we know why this occurs. It may 
result from the onset of a cold or because of an argument with a 
relative. Sometimes, however, we find no such reason. Why 
can't we perform up to par on some of those days when nothing 
is known to be wrong? 

Biorhythm theory says that all of us have cycles, beginning 
with the moment of birth, that influence our physical, emo- 
tional, and intellectual states. We will not go into a lot of detail 
about how biorhythm theory was developed (your local library 
probably has some books about this if you want to find out 
more), but we will summarize how it supposedly affects you. 

The physical cycle is twenty-three days long. For the first 1 1 Vi 
days, you are in the positive half of the cycle. This means you 
should have a feeling of physical well-being, strength, and en- 
durance. During the second 1 1 Vi days, you are in the negative 
half of the cycle. This results in less endurance and a tendency 
toward a general feeling of fatigue. 

The emotional cycle lasts for twenty-eight days. During the 
positive half (the first fourteen days), you should feel more 
cheerful, optimistic, and cooperative. During the negative half, 
you will tend to be more moody, pessimistic, and irritable. 

The third cycle is the intellectual cycle, which lasts for thirty- 
three days. The first half is a period in which you should have 
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greater success in learning new material and pursuing creative, 
intellectual activities. During the second half, you are sup- 
posedly better off reviewing old material rather than attempting 
to learn difficult new concepts. 

The ups and downs of these cycles are relative to each in- 
dividual. For example, if you are a very self-controlled, unemo- 
tional person to begin with, your emotional highs and lows may 
not be very noticeable. Similarly, your physical and intellectual 
fluctuations depend upon your physical condition and intellec- 
tual capacity. 

The day that any of these three cycles changes from the plus 
side to the minus side (or vice versa) is called a "critical day." 
Biorhythm theory says that you are more accident-prone on 
critical days in your physical or emotional cycles. Critical days in 
the intellectual cycle aren't considered as dangerous, but if they 
coincide with a critical day in one of the other cycles, the poten- 
tial problem can increase. As you might expect, a triple critical 
day is one on which you are recommended to be especially 
careful. 

Please note that there is quite a bit of controversy about bio- 
rhythms. Most scientists feel that there is not nearly enough evi- 
dence to conclude that biorhythms can tell you anything mean- 
ingful. Others believe that biorhythm cycles exist, but that they 
are not as simple and inflexible as the 23, 28, and 33 day cycles 
mentioned here. 

Whether biorhythms are good, bad, true, false, or anything 
else is not our concern here. We are just presenting the idea to 
you as an interesting theory that you can investigate with the 
help of your Commodore 64. 

HOW TO USE IT 

The program first asks for the birth date of the person whose 
biorhythm cycles are to be charted. You provide the month and 
day as you might expect. For the year, you only need to enter the 
last two digits if it is between 1900 and 1999. Otherwise, enter all 
four digits. 

Next the program asks you for the start date for the bio- 
rhythm chart. Enter it in the same way. Of course, this date can- 
not be earlier than the birth date. 

After a delay of about a second, the program clears the screen 
and begins plotting the biorhythm chart, one day at a time. The 
left side of the screen displays the date, while the right side 
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displays the chart. The left half of the chart is the "down" 
(negative) side of each cycle. The right half is the "up" (positive) 
side. The center line shows the critical days when you are at a 
zero point (neither positive nor negative). 

Each of the three curves is plotted with an identifying letter— 
P for physical, E for emotional, and I for intellectual. When the 
curves cross, an asterisk is displayed instead of either of the two 
(or three) letters. 

Twelve days of the chart are displayed on one screen, and then 
the program waits for you to press a key. If you press the N key, 
the current chart ends and the program starts over again. If you 
press the C key the program clears the screen and displays the 
next twelve days of the chart. If you press the E key, the pro- 
gram ends. 

The program will allow you to enter dates from the year 100 
A.D. and on. We make no guarantees about any extreme future 
dates, however, such as entering a year greater than 30(X). We 
sincerely hope that these limitations do not prove to be too con- 
Hning for you. 



SAMPLE RUN 




The operator enters his or her birth date and the date for the beginning 
of the chart. 
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PROGRAM LISTING 

READY. 



100 rem: EIORHVTHM 

110 REM: COPVRI.GHT 19S3 

111 rem: TOM RUGG.. PHIL FELDMRN.. RHD 

112 REM: WEESTERN SYSTEMS GROUP 
120 CLR: PRINT CHR*<147> 

1 30 L=0 : T= 1 1 : P=3 . 1 4 1 59265 

140 PRINT"** EIORHYTHM **":PRIHT 

150 PR I NT "ENTER TfHRTH DRTE" 

160 GOSUB 500:GO:3IJE 600 : JE^JC 

190 PR I NT "ENTER STRRT DRTE FOR CHART" 

200 GOSUE 500 : G0:3IJB 600 : JC.=JD 

230 IF JC>=JB THEN 278 

240 PRIHT"CHRRT DRTE CRN'T EE EARLIER" 

250 PR I NT "THAN BIRTH DATE,," 

260 PR I NT " TRY AGA I N " : PR I NT : GOTO 1 50 

270 FOR K = 1 TO 1800: NEXT 

280 GOSUE 700 

300 N = JC~JB 



BIORHYTHM 
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310 V =: £3:G0SIJE 800 
320 V = 2S:G0SUB 308 
330 V = 33 GOSUE 30© 
340 GOSUB 1000 
350 PRINT Ci|:-.;TRB';8> JL* 

3^30 JC = JC+l:L = L+l:iF- L<12 THEN 300 
370 PRINT 

372 PR I. NT "ENTER TO END" 

374 PRINT" -'C TO CONTINUE" 

37f:; PRINT" -'N-' FOR R NEW CHART" 

3S0 GET R*:IF R:$ a "" THEN 380 

3S5 IF R* = "N" THEN 12© 

3.90 IF R* - "E" THEN END 

395 IF R$ <> "C" THEN 370 

400 L = 0:GOTO 280 

500 PRINT 

505 INPUT "MONTH a TO 12>".;M 

510 M := I NT cm;' : IF M<1 OR M>12 THEN 505 

520 INPUT"DflV CI TO 31)".;B 

530 D = INTCD:>:IF IKl GR D>31 THEN 526 

540 INPUT"VEFIR".;V 

550 V = INTCV>:IF V<0 THEN 540 

560 IF V>.99 THEN 580 

570 V = V+lS'00 : PRINT VJ "RSSUMED. " 

580 RETURI-i 

600 W = 0:IF M<3 THEN W = ~1 
610 JD = INTC14ei*<V+4S@0+W>/4;i 
620 B = lNT<367*CM-2-W*12)/12;i 
630 IF E<0 THEN E = E+1 
640 JD = JD+E 

650 B = INTCINTC3*CV+4900+W>/100)/4> 

660 JD = JD+D-32075-E 

670 RETURN 

700 PRINT CHR*C147;' 

705 POKE 53230.. 3: POKE 53281 .. 7 : PRINT CHR*C2S> 
7 1 PR I NT TRB C 1 5 > .: "EI ORK VTHM " 

720 PRINT"- JJfiTE—" .: TfiBC 12> 

730 PR I NT " DOWN " .: TRE C 1 9 > " " j TRE C 24 > : " I IP " 
740 PRINT TFlEC8> 

750 FOR K » 1 TO T+T+i: PRINT CHR*<175>; 

760 NEXT : r-'R I NT : RETURN 

800 U IHTCH,-"v'> : R = N"-CWi*V;' 

850 IF V023 THEN 900 

868 L* = CHR*<32:' :FOR K = 1 TO 4 

870 = L* + 'u*.:NEXT 

880 L*=LEFTt- C L* . T ) +CHR$ < 1 6 i > +LEFT3: C L* .. T ) 

890 IF V =s 23 THEN C* "P" 

900 IF V = 28 THEN C* = "E" 

910 IF V = 33 THEN C* = "I" 

920 W = R/V : W = W*2*P 

.930 W = T*:SIN<W> :W = W+T+1,5 
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940 W == IHT<W>:fl* = MID^CLf.. W.. 1 > 

950 IF fl*="P" OR Fi*="E" OR THEN C* = "*" 

955 IF W = 1 THEN 980 

960 L$ = LEFT$a_$.W-l>+C$+RIGHTt<L*.T+T+l-W> 
970 RETURN 

980 L*=C*+R I OHT* < L* . T+T ) : RETURN 

990 L$=LEFT* ( L* . T+T > +C* : RETURN 

1000 IJ = JC+6:3SS9:R = INT<4*W/14S097> 

1010 W = W-IHT<:a46097*R+3>/4> 

1020 V = INT(:4000*i::W+i;'/14S1001> 

1030 U = W--IHTa461*'T'/4>+31 

1040 M = INT<80i*W/2447> 

1050 D = W-INT!:2447*r'1/80> 

1060 W = INTai/U;' :M = ri+2-12*W 

1070 V = 100*<;R~49>+V+W 

1080 Fl* = STR*ai>:W = LEN<fl*)-l 

1090 C* = MID*(:fl$..2..W;i + "/" 

1100 R* = STR*ai>:W = LENCR^J-l 

1110 C* a C$+MID*';fl*.£.W> + "/" 

1120 fl* = STR*CV>:W «= LENCR*>-i 

1130 C* = C*+MID*<R*.W.2> 

1140 RETURN 

RERDV. 



EASY CHANGES 

1. Want to see the number of days between any two dates? In- 
sert this line: 

305 PRINT «DAYS = ";N: END 

Then enter the earlier date as the birth date, and the later 
date as the start date for the chart. This will cause the pro- 
gram to display the difference in days and then end. 

2. To alter the number of days of the chart shown on each 
screen, alter the 12 in line 360. 

MAIN ROUTINES 

120- 140 Initializes variables. Displays titles. 

150- 160 Asks for birth date and converts to Julian date for- 
mat (i.e., the number of days since January 1, 
4713 B.C. 

190- 200 Asks for start date for chart and converts to Julian 
date format. 
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230- 


260 


Checks that chart date is not sooner than birth date. 


270 




Oelav^ about one second before disnlavin^ chart 


280 




Oisnlavs beading at ton of screen 


300 




Determines number of davs between birth date and 






current chart date 


310- 


330 


Plots noints in I St strinff for each of the three cvcles 

M. XXJ^O ^VillliD ill Skiing M.\JM. VCiWlI \J1. LIlV LIU WJ'^l^O* 


340 




Converts Julian date back into month-dav-vear 






format. 


350 




Displays one line on the chart. 


360- 


400 


Adds one to chart date. Checks to see if the screen is 






full. 


500- 


580 


Subroutine to ask ooerator for month dav and 






year. Edits replies. 


600- 


670 


Subroutine to convert month dav and vear into 






Julian date format. 


700- 


760 


Subroutine to clear screen and display headings. 


800- 


990 


Subroutine to calculate remainder R of N/V, and 






plot a point in L$ based on V and R. 


1000-1140 


Subroutine to convert Julian date JC back into 






month-day-year format. 


MAIN VARIABLES 


L 




Counter of number of Unes on screen. 


T 




Number of characters on one side of the center of 






the chart. 


P 




Pi. 


JB 




Birth date in Julian format. 


JD 




Julian date calculated in subroutine. 


JC 




Chart start date in Julian format. 


K 




Loop and work variable. 


N 




Number of days between birth and current chart 






date. 


V 




Number of days in present biorhythm cycle (23, 28, 






or 33). 


c$ 




String with date in month/day/year format. 


L$ 




String with one line of the biorhythm chart. 


R$ 




Reply from operator after screen fills up. 


M 




Month (1-12) 


D 




Day (1-31) 


Y 




Year (100 or greater) 
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W, B 

R 

A$ 



Work variables. 

Remainder of N/V (number of days into cycle). 
Work variable. 



SUGGESTED PROJECTS 

1 . Investigate the biorhythms of some famous historical or ath- 
letic personalities. For example, are track and field athletes 
usually in the positive side of the physical cycle on the days 
that they set world records? Where was Lincoln in his emo- 
tional and intellectual cycles when he wrote "The Gettysburg 
Address"? Do a significant percentage of accidents befall 
people on critical days? 

2. Modify the program to print the chart on a line printer. (Be 
sure to print the name and/or birthdate on the chart, too.) 



CHECKBOOK 



PURPOSE 

Many people consider the monthly ritual of balancing the 
checkbook to be an irritating and error-prone activity. Some 
people get confused and simply give up after the first try, while 
others give up the first time they cannot reconcile the bank state- 
ment with the checkbook. Fortunately, you have an advan- 
tage—your computer. This program takes you through the nec- 
essary steps to balance your checkbook, doing the arithmetic for 
you, of course. 

HOW TO USE IT 

The program starts off by giving you instructions to verify 
that the amount of each check and deposit are the same on the 
statement as they are in your checkbook. Sometimes the bank 
will make an error in reading the amount that you wrote on a 
check (especially if your handwriting is not too clear), and some- 
times you will copy the amount incorrectly into your checkbook. 
While you are comparing these figures, make a check mark in 
your checkbook next to each check and deposit listed on the 
statement. A good system is to alternate the marks you use each 
month (maybe an "x" one month and a check mark the next) so 
you can easily see which checks and deposits came through on 
which statement. 

Next, the program asks for the ending balance shown on the 
bank statement. You are then asked for the check number (not 
the amount) of the most recent check shown on the statement. 
This will generally be the highest numbered check the bank has 
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processed, unless you like to write checks out of sequence. Your 
account balance after this most recent check will be reconciled 
with the statement balance, so that is what the program asks for 
next— your checkbook balance after the most recent check. 

The program must compensate for any differences between 
what your checkbook has in it prior to the most recent check and 
what the statement has on it. First, if you have any deposits that 
are not shown on the statement before the most recent check, 
you must enter them. Generally, there are none, so you just 
enter "END." 

Next you have to enter the amounts of any checks that have 
not yet "cleared" the bank and that are prior to the most recent 
check. Look in your checkbook for any checks that do not have 
your check mark next to them. Remember that some of these 
could be several months old. 

Next you enter the amount of any service charges or debit 
memos that are on the statement, but which have not been 
shown in your checkbook prior to the most recent check. Typi- 
cally, this is just a monthly service charge, but there might also 
be charges for printing new checks for you or some other adjust- 
ment that takes money away from you. Credit memos (which 
give money back to you) are not entered until later. Be sure to 
make an entry in your checkbook for any of these adjustments 
so that next month's statement will balance. 

Finally, you are asked for any recent deposits or credit memos 
that were not entered in your checkbook prior to the most recent 
check, but that are listed on the bank statement. It is not unusual 
to have one or two of these, since deposits are generally process- 
ed by banks sooner than checks. 

Now comes the moment of truth. The program tells you 
whether or not you are in balance and displays the totals. If so, 
pack things up until next month's statement arrives. 

If not, you have to figure out what is wrong. The best thing to 
do first is to make sure you entered all the data correctly. You 
can verify that the outstanding checks were entered correctly 
with this command: 

FOR J = 1 TO NC:PRINT C(J);:NEXT 

Then, to review the balancing summary, you can enter: 

GOTO 810 

To verify that you entered everything else correctly, simply RUN 
the program again and compare results. 
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If you entered everything correctly, the most hkely cause of 
the out of balance condition is an arithmetic error in your check- 
book. Look for errors in your addition and subtraction, with 
subtraction being the most likely culprit. This is especially likely 
if the amount of the error is a nice even number like one dollar 
or ten cents. 

Another common error is accidentally adding the amount of a 
check in your checkbook instead of subtracting it. If you did 
this, your error will be twice the amount of the check (which 
makes it easy to find). 

If this still does not explain the error, check to be sure you 
subtracted last month's service charge when you balanced your 
checkbook with the previous statement. And, of course, if you 
did not balance your checkbook last month, you cannot expect it 
to come out right this month. 

The program has limitations of how many outstanding checks 
you can enter, but this can be changed easily. See "Easy 
Changes" below. 

SAMPLE RUN 



•Ht CHECKBOOK »« 

FIRST. BE SURE VOUR BflMK 
STATEMENT AND CHECKBOOK SHOH 
THE SAHE riGURES TOR EACH CHECK 
AND DEPOSIT LISTED ON THE 
STATEHEHT. 

UHAT'S THE ENDING BALANCE SHOHN 
DM THE STATEMENT ? 
? 526.16 

NOM FIND THE MOST RECENT CHECK 
THAT HAS ON THE STATEfCNT. 
UHAT IS THE CHECK MUtffiER OF IT "> 
? 1652 

HHAT BALANCE IS SH0M4 IN VOUR 
CHECKBOOK AFTER CHECK NO. 1652 
1 



The program displays an introduction, and the operator begins pro- 
viding the necessary information. 
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FIRST. BE SURE VOUR BANK 
STATEtCHT AMD CHECKBOOK SHOU 
THE SAME FIGURES FOR EACH CHECK 
AHD DEPOSIT LISTED ON THE 
STAIEHFHT . 

HHAT'S THE ENDING BALANCE SHOMM 
ON THE STATEHENT ■> 
? 529.16 

HOU FIND THE HOST RECENT CHECK 
THAT MAS ON THE STATENENT. 
MHAT IS THE CHECK NUMBER OF IT 
? 1652 

MHAT BALANCE IS SHOUN IN VOUR 
CHECKBOOK AFTER CHECK NO. 1652 
? 486.12 

ENTER THE AlWUNT OF ANV DEPOSIT 
SHOMH IN VOUR CHECKBOOK PRIOR 
TO CHECK 1G52 THAI IS NOI 
ON THE STATEnCNT. 
ENTER 'END' HHCN DONI 
■> END 



The operator continues by entering the checkbook balance, followed by 
END to indicate no outstanding deposits. 



CHECKBOOK AFTER CHECK NO. 1ES2 
-> 488.12 

ENTER THE AMOUNT OF ANV DEPOSIT 

SHOMM IN VOUR CHECKBOOK PRIOR 

TO CHECK 1652 THAT IS NOT 

OH THE STATEMENT. 

ENTER 'END' UHEN DONE 

? END 

TOTAL = a 

HOM ENTER THE AMOUNTS OF ANV 
CHECKS IN THE CHECKBOOK PRIOR 
TO CHECK 1652 THAT HAUE NOT 
VET BEEN SHOHH ON A STATEMENT. 
ENTER 'END' WHEN DONE 
? 35.84 
? 18 
? END 

TOTAL = 45.84 

HOM ENTER THE AMOUNTS Of ANV 
SERUICE CHARGES OR DIBIT WMOS. 
ENTER 'END' WHEN DONE 



The operator enters the outstanding checks, and prepares to enter ser- 
vice charges. 
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HOU EMTER THE flflOUMTS OF flNV 
CHECKS IN THE CHECKBOOK PRIOR 
TO CHECK 1B5? THAT HflUE HOT 
VET BEEM SHOHN ON ft STflTEtCNT. 
ENTER 'END' WHEN DONE 

35.84 
? 18 

TOTAL = 45.84 

HOU ENTER THE ftMOUHTS OF ftHV 

SERUICE CHARGES OR DEBIT HCmS. 

ENTER 'END' HHEN DONE 

? 2.35 

? 2.65 

? END 

TOTAL = 5 

ENTER THE AHOUNT OF ANV DEPOSIT 
SHOMH IN VOUR CHECKBOOK AFTER 
CHECK NO. 1652 THAT IS ALSO 
LISTED IN THE STATEtJEHT. 
ENTER 'END' HHEN DONE 



After the service charges are entered, the operator will indicate no late 
deposits by entering END. 




Finally, the program displays balancing information and ends. 
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PROGRAM LISTING 

REflDV. 



100 rem: checkbook 

110 REM: COPVRIGHT 1983 

111 rem: TOM RUGQ.. PHIL FELDMHN., RND 

112 REM: WESTERN SV:3TEMS GROUP 
120 CLR:PRIHT CHR*<14?) 

130 PRINT" ** CHECKBOOK iK*":PRINT 
150 MC = 10 
160 DIM CCMC) 

130 E* = "ERROR. RE-ENTER," 

190 PR INT "FIRST. EE SURE VOUR BANK" 

200 PR I NT "STATEMENT RND CHECKBOOK SHOW" 

210 PR I NT "THE :3flME FIGURES FOR EACH CHECK" 

220 PRINT"flND DEPOSIT LISTED ON THE" 

230 PR I NT " STATEMENT . " : PR I NT 

280 PR I NT "WHAT'S THE ENDING BALANCE SHOWN" 

290 PR I NT "ON THE STATEMENT ?": INPUT SB 

300 PR I NT "NOW FIND THE MOST RECENT CHECK" 

310 PR I NT "THAT WAS ON THE STATEMENT." 

330 PR I NT "WHAT IS THE CHECK NUMBER OF IT ?" 

340 INPUT LC 

350 L* = "HO MORE ROOM." 

380 PRINT 

390 PR I NT "WHAT BALANCE IS SHOWN IN VOUR" 
400 PR I NT "CHECKBOOK AFTER CHECK NO.";LC 
410 INPUT CB-: PRINT 

430 PR I NT "ENTER THE AMOUNT OF ANV DEPOSIT" 

440 PR I NT "SHOWN IN VOUR CHECKBOOK PRIOR" 

450 PR I NT "TO CHECK ";LC; "THAT IS HOT" 

460 PR I NT "ON THE STATEMENT." 

470 flf a "ENTER 'END' WHEN DONE": PR I NT A* 

4S0 INPUT R*:IF R$ = "END" THEN 540 

500 IF VRL'::R*> > THEN 520 

Pie PRINT E*:G0T0 470 

520 ND = NE+3. :TD = TD+VRL<:R*> 

530 GOTO 480 

540 PR I NT "TOTAL =";TD: PRINT 

550 PR I NT "NOW ENTER THE AMOUNTS OF ANV" 

560 PR I NT "CHECKS IN THE CHECKBOOK PRIOR" 

5?0 PRINT"TO CHECK ";LC.i "THAT HAVE NOT" 

580 PR I NT "VET BEEN SHOWN ON A STATEMENT." 

600 PRINT m 

610 INPUT R* 

620 IF R$ = "END" THEN 690 
630 IF VflL':;R*> > THEN 660 
640 PRINT Eir:GOTO 600 

6fi0 NC = NC+l:C'r.NC) = VAL'r.R4->:TC =TC+CaC> 
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670 IF HC < MC THEN 61Q 
6B@ PRINT L* 

690 PRIWT"TOTRL =";TC: PRINT 

700 PRINT "HOW ENTER THE RMOUNTS OF RNV" 

710 PRINT"SERVICE CHARGES OR DEBIT MEMOS." 

720 PRINT R* 

730 INPUT R* 

740 IF m = "END" THEN 790 
750 IF VRL.'::Ri:> > 8 THEN 770 
760 PRINT EiT^GOTO 720 
770 NS ~ NS+l:TS - TS+VRL''R*> 
780 GOTO 730 

790 PRINT"TOTRL =",;TS:PRINT 
800 GOSUB 2000 

S10 W = SE+TD+TS-CE-TC~TR:W = RBSCW!) 
S15 IF W y .001 THEN 840 
320 W = 0: PRINT" IT ERLRNCES !!!" 
830 GOTO 350 

840 PR1NT"S0RRV. IT'S OUT OF ERLRNCE. " 

850 PR I NT "STATEMENT ERLRNCE +" 

860 PR I NT "DEPOSITS OUTSTRNDING +" 

870 PRINT"SERVICE CHHRGES ="JSE+TD+TS 

880 PRINT: PR I NT "CHECKBOOK ERLRNCE +" 

390 PR I NT "CHECKS OUTSTRNDING +" 

900 PR I NT "RECENT DEPOSITS =";CB+TC+TR 

9 1 PR INT: PR I NT " D I FFERENCE =" i W 

920 PRINT 

930 END 

2000 PR I NT "ENTER THE RMOUNT OF RNV DEPOSIT" 
2010 PR I NT "SHOWN IN VOUR CHECKBOOK RFTER" 
2020 PRINT"CHECK NO. " ; LC; "THRT IS RLSO" 
2030 PRINT "LISTED IN THE STATEMENT. " 
2050 PRINT m 
20S0 INPUT R* 

2070 IF R* = "END" THEN 2130 
2080 IF VRLCR*) > THEN 2100 
2090 PRINT E*:GOTO 2050 
2100 NR NR+l:TR = TR+VRL<:R$> 
2110 GOTO 2060 

2 1 30 PR I NT " TOTAL = " ; TR : PR I NT 
2140 RETURN 

RERDV. 

EASY CHANGES 

Change the limitation of how many outstanding checks you 
can enter. Line 150 establishes this limit. If you have more than 
10 checks outstanding at some time, change the value of MC to 
100, for example. 
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MAIN ROUTINES 


120- 




iniucuizcs variaDics auu uispiays iirst instructions. 


J\J\J 




vjcLa muoL receni cncCK nuniDcr. 


380- 


410 


Gets checkbook halanrp aftpr moQt rf*f*pnt r\\(^rV 








430- 


540 


Gets oiitstandinff Heno^if^ 


550- 


690 


Gets outstanding checks. 


700- 


790 


Gets service charges and debit memos. 


800 




Gets recent deposits and credit memos. 


810- 


930 


Does balancing calculation. Displays it. Ends 






program. 


2000-2140 


Subroutine to get recent deposits. 



MAIN VARIABLES 



MC 


Maximum number of checks outstanding. 


C 


Array for checks outstanding. 


TC 


Total of checks outstanding. 


TD 


Total of deposits outstanding. 


TS 


Total of service charges and debit memos. 


TR 


Total of recent deposits and credit memos. 


NC 


Number of checks outstanding. 


ND 


Number of deposits outstanding. 


NS 


Number of service charges and debit memos. 


NR 


Number of recent deposits and credit memos. 


E$ 


Error message. 


SB 


Statement balance. 


LC 


Number of last check on statement. 


CB 


Checkbook balance after last check on statement. 


R$ 


Reply from operator. 


W 


Amount by which checkbook is out of balance. 


A$ 


Message showing how to indicate no more data. 


L$ 


Message indicating no more room for data. 



SUGGESTED PROJECTS 

1 . Add more informative messages and a more complete intro- 
duction to make the program a tutorial for someone who 
has never balanced a checkbook before. 

2. Save all entries from the operator and allow any of them to 
be reviewed and/or modified if found to be incorrect. 
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3. If the checkbook is out of balance, have the program do an 
analysis (as suggested in the "How To Use It" section) and 
suggest the most Ukely errors that might have caused the 
condition. 

4. Allow the operator to find arithmetic errors in the check- 
book. Ask for the starting balance, then ask for each check 
or deposit amount. Add or subtract, depending on which 
type the operator indicates. Display the new balance after 
each entry so the operator can compare with the checkbook 
entry. 
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DECIDE 



PURPOSE 

"Decisions, decisions!" How many times have you uttered this 
lament when confronted by a difficult choice? Wouldn't a trusty 
advisor be helpful on such occasions? Well, you now have 
one— your Commodore 64 Computer of course. 

This program can help you make decisions involving the selec- 
tion of one alternative from several choices. It works by prying 
relevant information from you and then organizing it in a mean- 
ingful, quantitative manner. Your best choice will be indicated 
and all of the possibilities given a relative rating. 

You can use the program for a wide variety of decisions. It 
can help with things like choosing the best stereo system, saying 
yes or no to a job or business offer, or selecting the best course 
of action for the future. Everything is personalized to your in- 
dividual decision. 

HOW TO USE IT 

The first thing the program does is ask you to categorize the 
decision at hand into one of these three categories: 

1) Choosing an item (or thing), 

2) Choosing a course of action, or 

3) Making a yes or no decision. 

You simply press 1, 2, or 3 followed by the RETURN key to in- 
dicate which type of decision is facing you. If you are choosing 
an item, you will be asked what type of item it is. 
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If the decision is either of the first two types, you must next 
enter a list of all the possibilities under consideration. A ques- 
tion mark will prompt you for each one. When the list is com- 
plete, type "END" in response to the last question mark. You 
must, of course, enter at least two possibilities. (We hope you 
don't have trouble making decisions from only one possibility!) 
After the list is finished, it will be re-displayed so that you can 
verify that it is correct. If not, you must re-enter it. 

Now you must think of the different factors that are impor- 
tant to you in making your decision. For example, location, 
cost, and quality of education might govern the decision of 
which college to attend. For a refrigerator purchase, the factors 
might be things like price, size, reliability, and warranty. In any 
case, you will be prompted for your list with a succession of 
question marks. Each factor is to be entered one at a time with 
the word "END" used to terminate the list. When complete, the 
list will be re-displayed. You must now decide which single fac- 
tor is the most important and input its number. (You can enter 
if you wish to change the list of factors.) 

The program now asks you to rate the importance of each of 
the other factors relative to the most important one. This is done 
by first assigning a value of 10 to the main factor. Then you 
must assign a value from 0-10 to each of the other factors. These 
numbers reflect your assessment of each factor's relative impor- ^ 
tance as compared to the main one. A value of 10 means it is just 
as important; lesser values indicate how much less importance 
you place on it. 

Now you must rate the decision possibilities with respect to 
each of the importance factors. Each importance factor will be 
treated separately. Considering only that importance factor, you 
must rate how each decision possibility stacks up. The program 
first assigns a value of 10 to one of the decision possibilities. 
Then you must assign a relative number (lower, higher, or equal 
to 10) to each of the other decision possibilities. 

An example might alleviate possible confusion here. Suppose 
you are trying to decide whether to get a dog, cat, or canary for a 
pet. Affection is one of your importance factors. The program 
assigns a value of 10 to the cat. Considering only affection, you 
might assign a value of 20 to the dog and 6.5 to the canary. This 
means you consider a dog twice as affectionate as a cat but a 
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canary only about two thirds as affectionate as a cat. (No slight- 
ing of bird lovers is intended here, of course. Your actual ratings 
may be entirely different.) 

Armed with all this information, the program will now deter- 
mine which choice seems best for you. The various possibiUties 
are listed in order of ranking. Alongside each one is a relative 
rating with the best choice being normalized to a value of 100. 

Of course, DECIDE should not be used as a substitute for 
good, clear thinking. However, it can often provide valuable in- 
sights. You might find one alternative coming out surprisingly 
low or high. A trend may become obvious when the program is 
re-run with improved data. At least, it may help you think about 
decisions systematically and honestly. 

SAMPLE RUN 




The program displays an introduction, and the operator begins pro- 
viding the necessary information. 
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After selecting option 1 and entering a single item "VACATION", the 
types of vacations are requested. 




The operator continues by entering the factors that are important in 
choosing the best vacation. 
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The operator selects the most important factor. 




The operator selects a value of importance for the factors. 
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The operator rates each vacation based on each factor. 




The program displays the list of vacations in order. 
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PROGRAM LISTING 

REflDV. 



DECIDE 

COPVRIGHT 1383 

PHIL FELDMRH. TOM RUGG.. FlWD 

WESTERN SYSTEMS GROUP 



100 rem: 

110 rem: 

111 REM: 

112 REM: 
150 CLR 
160 MD = 10 

1?0 DIM L*<MD>.. F$a'1D>.. V'r.MD::' 
180 DIM Ca'1D..MD>. D<MD>. ZCMD) 
190 E* = "END" 
200 GOSUB 5000 

210 PRINT"! CRN HELP VOU TO MFlKE R" 
220 PR I NT "DEC I SI ON. RLL I NEED TO DC IS" 
230 PRINT"RSK SOME QUESTIONS AND THEN" 
240 PRINT"RNRLVZE VOUR RESPONSES." 
250 FOR J = 1 TO 30: PR I NT "-".;: NEXT 
260 PRINT 

270 PR I NT "WHICH OF THESE BEST DESCRIBES" 
280 PR I NT "THE DECISION FRCING VOU ?" 
290 PRINT" 1) CHOOSING RN ITEM FROM" 
300 PRINT" VARIOUS RLTERNRTIVES, " 
310 PRINT" 2> CHOSING fl COURSE OF RCTION" 
320 PRINT" FROM VRRIOUS RLTERNRTIVES. " 

339 PRINT" 3> DECIDING 'VES' OR 'NO'." 

340 PRINT 

350 INPUT "WHICH ONE a.. 2 OR 3>".:T 

360 IF T < 1 OR T > 3 THEN 200 

400 COSUE 5000 

410 OH T GOTO 420.. 440.. 4S0 

420 PRIHT"WHRT TVPE OF ITEM IS IT" 

4.30 INPUT Tip: GOTO 500 

440 T* =" COURSE OF ACTION" 

450 GOTO 500 

460 T* ="'VES' OR 'NO'":NI = 2 

470 L*'::i> = "DEC I DING VES" 

480 Lf<2-) ^"DECIDING NO" 

490 GOTO 900 

500 G0:3UE 5000 :NI = Q 

510 PRINT" I NEED TO HAVE fl LIST OF ERCH" 
520 PRINT J$i " UNDER CONSIDERRTION. " 
530 PRINT 

540 PRINT" INPUT THEM ONE R R TIME IN" 
550 PR I NT "RESPONSE TO ERCH QUESTION MARK." 
560 PRINT 

S70 PRINT" TVPE THE WORD ' " .; E*.: " ' TO" 
5S0 PRINT" INDICATE THAT THE WHOLE LIST" 
590 PR I NT "HAS BEEN ENTERED. ": PRINT 
600 IF NI < MD THEN 620 
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610 PRINT "-LI ST FULL-": GOTO 659 

620 HI = HI + J.: INPUT L*'::NI> 

630 IP L^CNIJ <> THEN 600 

640 NI = NI-1 

650 IF NI :>=2 THEN 700 

660 PRINT 

670 PRINT"VOU NEED AT LEAST 2 CHOICES ! ! " 
680 F'R 1 NT : F'R I NT " TRV RGR I N " 
690 GCiSUE 5200 '■ GOTO 500 
700 GOSUB 5000 

710 PR I NT "OK. HERE-'S VOUR LIST:" 
720 PRINT: FOR J = 1 TO NI 
730 PRINT J.;CHR$'rs::'.; "> ".;L* ':;.;:> 
740 NEXT: PRINT 

750 FOR J = 1 TO 9: GET R*:NEXT 

760 INPUT" IS THE LIST CORRECT ':;V OR N>".;R$: 

770 IF R* = "V" THEN 900 

7S0 IF R* <> "N" THEN 700 

72-'0 PRINT 

800 PR I NT "THE LIST MUST BE RE-ENTERED" 
S10 GOSUB 5200: GOTO 50@ 
900 GOSUB 5000 : GET R$ 

910 PRINT" NOW.. THINK OF THE FACTORS THAT" 

920 IF T<3 THEN PRINT"RRE IMPORTANT IN CHOOSING 

930 IF T <: 3 THEN PR I NT "THE BEST ";T*.;"„" 

S4Q IF T = 3 THEN PR I NT "ARE IMPORTANT TO VOU IN 

950 IF T = 3 THEN PRINT "DECIDING "JT*.:"." 

960 PRINT: PRINT" INPUT THEM ONE AT A TIME IN" 

970 PR I NT "RESPONSE TO EACH QUESTION MARK." 

980 PR I NT: PR I NT" TVPE THE WORD '"i £■$;"' TO" 

990 PR I NT "TERM I NATE THE LIST," 

1000 PRINT :NF = 

1010 IF NF MD THEN PRINT"— LIST FULL —" 
1020 IF NF >= ME THEN 1060 
1030 NF ~ NF+l: INPUT F*';NF> 

1049 IF Fir-<NF> <> E* THEN 1010 

1050 NF = NF-i:PRINT 

1060 IF NF < 1 THEN PR I NT "VOU MUST HAVE AT 

LEAST 1 ~" 
1065 IF NF C 1 THEN PR I NT "PLEASE REDO." 
1070 IF NF < 1 THEN GOSUB 5200 
1080 IF NF < 1 THEN 900 
1100 GOSUB 5000 

1110 PR I NT "HERE'S VOUR LIST OF FACTORS:" 

1130 FOR J = 1 TO NF 

1 1 40 PR I i-JT J ; CHR* < S > i " > " F$ ^ J > 

1150 NEXT 

1160 PRINT"DECIDE WHICH FACTOR ON THE" 
1170 PRINT"LIST IS MOST IMPORTANT AND" 
1180 PRINT" INPUT ITS NUMBER. aVPE IF" 
1190 PR I NT "THE LIST HEEDS CHANGING.';'" 
1200 INPUT A:fl = I NT t; A J 
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1210 IF R •-- e THEN Sm 

1220 IF R > NF OR R < THEN 1190 

1300 OOSUE 5000 

1310 IF HF = 1 THEN 1500 

1320 PRINT" HOW LET'S SUPPOSE WE KFlVE R" 

1330 PRINT"SCRLE OF IMPORTRHCE RRNGIHG" 

1340 PR I NT "FROM 0-10. WE'LL GIVE" 

1350 PRINT r*<R?J" R VRUJE OF" 

1360 PRINT "10 SINCE ";F$(:R> 

1370 PRINT"WRS RATED THE MOST IMPORTANT. " 

1380 PRINT: PRINT" ON THIS SCRLE.. WHAT VRLUE OF" 

13510 PRINT" IMPORTANCE WOULD THE OTHER" 

1400 PRINT"FRCTORS HAVE ?" 

1410 FOR J = 1 TO NF 

1420 IF J = A THEN 1490 

1430 PRINT: PRINT F*CJ> 

1440 INPUT VCTJ 

1450 IF VCJ) <0 THEN 14S0 

1460 IF VCJ) >10 THEN 1480 

1470 GOTO 1490 

1480 PRINT" IMPOSSIBLE VALUE - TRV AGAIN" 
1485 GOTO 1430 
1490 NEXT 

1500 V'::a;; = 10 :q = 0:for j = 1 to nf 

1510 Q = Q+V<..T.-' : NEXT; FOR J == 1 TO Nr 

1 520 V •:. J > = V C J > /Q : NEXT : GOSUB 5006 

1530 IF T <> 3 THEN PRINT" EACH ".;T$.;" MUST NOW" 

154S IF T = 3 THEN PRINT" DECIDING ■'VES' OR" 

1550 IF T == 3 THEN PR I NT "DEC I DING -'HO' MUST NOW" 

1560 PR I NT "BE COMPARED WITH RESPECT TO" 

1570 PR I NT "EACH IMPORTANCE FACTOR." 

1580 PRINT" WE'LL CONSIDER EACH FACTOR" 

J 590 PRINT"SEPARRTELV AND THEN RATE" 

1600 IF T <> 3 THEN PRINT"EACH ";T*;" IN TERMS" 

1610 IF T == 3 THEN PRINT "DECIDING -'VES' OR" 

1620 IF T = 3 THEN PRINT"DECIDING -'NO' IN TERMS" 

1630 PR I NT "OF THAT FACTOR ONLV" 

1634 PRINT"*** <HIT ANY KEV TO CONTINUEV 

1638 GET R*:IF R* = "" THEN 163S 

1639 PRINT CHR*a47> 

1640 print: PRINT" LET'S GIVE ";L*a;' 
1650 PR I NT "A VALUE OF 13 ON EVERV SCRLE." 
1660 IF T <> 3 THEN PRINT" EVERV OTHER " ; T* 
1670 IF T == 3 THEN PRINT" THEN DECIDING 'NO''" 
1580 PR I NT "WILL BE ASSIGNED A VALUE HIGHER" 
1690 PR I NT "OR LOWER THAN IS. THIS VALUE" 
1700 PR I NT "DEPENDS ON HOW MUCH VOU THINK" 
1710 PRINT" IT IS BETTER OR WORSE THAN" 

1720 PRINT L«:a>; ". " 
1800 FOR J 1 TC NF 

1810 PRINT" " 

1820 PRINT" CONSIDERING ONLV iF$<.J'> 
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1830 PRINT"fiND flSSICNIHG 18 TO" 
1835 PRINT L^^a. > 

1840 PF::IHT"I..JI-iRT VflLUE WOULD VOU flSSIGH TO" 

1850 FOR K = 2 TO NI 

I860 PRINT L*«;i<>.; : INFL^T CCK..J> 

1870 IF C'::i<..J> >= THEN 190© 

1880 PRINT" ~~ NEGRTIVE VALUES ILLECRL — " 

1890 GOTO 1860 

1900 NEXT;PRINT;C<l.j;' = 10: NEXT 
2080 FOR J = 1 TO NF:Q = 
2010 FOR K = 1 TO HI 
2020 Q = Q+CCK.. J:> : NEKT 
2030 FOR K = 1 TO NI 
2040 C<:K.. J> = C<I<..J;>/Q: next: NEXT 
£050 FOR K = 1 TO NrDCK) = 
2060 FOR J = 1 TO NF 

2070 iick:' = ii(;k>+C'::k.. J)*v::.:r> :next 

2080 NEXT: FOR K = 1 TO NI 

2090 IF CCK) > MX THEN PIX == DOO 

2100 NEXT: FOR i< = 1 TO HI 

£110 Dcio = ri(:K:'*i00/r'ix:NEXT 

2200 FOR K = 1 TO HI:ZT.K;' = i< : NEXT 
£210 NM = NI--1:F0R K = 1 TO NI 
22£0 FOR J = 1 TO NM:N1 = Z<J> 

2230 N2 = zc:r+i> 

2240 IF Da-in > T)<M2y THEN 2260 
2250 2':;j+l> = N 1 : Z C J > = N2 
2260 NEXT: NEXT :.T1 == Z'::i:j:J2 = Z':.2'> 
2270 DF =D';:J1>-II':;J2> :GnsUB 5000 
£300 PRINT L«:(:J1>;" is BEST" 

£310 IF DF < 5 THEN PR I NT "BUT IT-'S VERV CLOSE." 
2320 IF DF < 5 THEN 2380 

2330 IF DF < 10 THEN PRINT"EUT IT'S FRIRLV CLOSE." 
2340 IF DF < 10 THEN 2380 

2350 IF DF < 20 THEN PR:NT"BV fl Fi-IIR flMOUNT. " 

£360 IF DF < 20 THEN 2380 

2370 PR I NT "QUITE BECISIVELV, " 

2380 PRINT" HERE-'S THE FINAL LIST IN ORDER:" 

2390 PRINT 

2480 FOR J = 1 TO NI:Q = Z<J> 
2490 PR I NT I NT (D < Q > . Lf Q > : NEXT 
3000 END 

5000 FOR J = 1 TO 500: NEXT 

5010 PR I NT CHR* (. 1 47 > : PR I NT TAB < 1 5 ;■ ; " DEC I DE " 
5020 PRINT: RETURN 

5280 FOR J = 1 TO 1500 : NEXT : RETURN 
RERDV. 

EASY CHANGES 

1 . The word "END" is used to flag the termination of various 
input lists. If you wish to use something else (because of 
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conflicts with items on the list), change the definition of E$ 
in line 190. For example, to use the word "DONE," change 
line 190 to 

190 E$ = "DONE" 

2. Line 5200 contains a timing delay used regularly in the pro- 
gram. If things seem to change too fast, you can make the 
number 1500 larger. Try 

5200 FOR J = 1 TO 3000:NEXT: RETURN 

3. The program can currently accept up to ten decision alterna- 
tives and/or ten importance factors. If you need more, in- 
crease the value of MD in line 160. Thus, to use 15 values, 
line 160 should be 

160 MD = 15 



MAIN ROUTINES 

150- 190 Initializes and dimensions variables. 

200- 360 Determines category of decision. 

400- 490 Gets or sets T$. 

500- 810 Gets list of possible alternatives from user. 

900-1220 Gets list of importance factors from user. 

1300-1490 User rates each importance factor. 

1500-1900 User rates the decision alternatives with respect to 

each importance factor. 

2000-2110 Evaluates the various alternatives. 

2200-2270 Sorts alternatives into their relative ranking. 

2300-3000 Displays results. 

5000-5020 Subroutine to clear screen and display header. 

5200 Time wasting subroutine. 



MAIN VARIABLES 



MD 


Maximum number of decision alternatives. 


NI 


Number of decision alternatives. 


NM 


NI-1. 


L$ 


String array of the decision alternatives. 


NF 


Number of importance factors. 


F$ 


String array of the importance factors. 


V 


Array of the relative values of each importance 




factor. 


A 


Index number of most important factor. 
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c 


Arrav of relative values of each alternative with 




resnect to each imoortance factor. 


T 


Decision category (l = iteni, 2 = course of action, 








Strinff name of decision catecorv 

11 11 IK IIUIIIV Vl V»\if\^liJ»Vll V***VW^V* ^ • 




^trinp tn ^ifynfil the end of an inniit data lijit 


T K 




R$ 


User renlv strinc 


Q,N1,N2 


Work variables. 


D 


Array of each alternative's value. 


MX 


Maximum value of all alternatives. 


DF 


Rating difference between best two alternatives. 


Z 


Array of the relative rankings of each alternative. 



SUGGESTED PROJECTS 

1 . Allow the user to review his numerical input and modify it if 
desired. 

2. Insights into a decision can often be gained by a sensitivity 
analysis. This involves running the program a number of 
times for the same decision. Each time, one input value is 
changed (usually the one you are least confident about). By 
seeing how the results change, you can determine which fac- 
tors are the most important. Currently, this requires a com- 
plete rerunning of the program each time. Modify the pro- 
gram to allow a change of input after the regular output is 
produced. Then recalculate the results based on the new 
values. (Note that many input arrays are clobbered once all 
the input is given. This modification will require saving the 
original input in new arrays so that it can be reviewed later.) 



LOAN 



PURPOSE 

One of the most frustrating things about borrowing money 
from a bank (or credit union or Savings and Loan) is that it's not 
easy to fully evaluate your options. When you are borrowing 
from a credit union to buy a new car, you might have the choice 
of a thirty-six or a forty-eight month repayment period. When 
buying a house, you can sometimes get a slightly lower interest 
rate for your loan if you can come up with a larger down pay- 
ment. Which option is best for you? How will the monthly pay- 
ment be affected? Will there be much difference in how fast the 
principal of the loan decreases? How much of each payment will 
be for interest, which is tax-deductible? 

You need to know the answers to all these questions to make 
the best decision. This program gives you the information you 
need. 

HOW TO USE IT 

The program first asks you the size of the loan you are consid- 
ering. Only whole dollar amounts are allowed — no pennies. 
Loans of one million dollars or more are rejected (you can af- 
ford to hire an investment counselor if you want to borrow that 
much). Then you are asked the yearly interest rate for the loan. 
Enter this number as a percentage, such as "10.8." Next, you are 
asked to give the period of the loan in months. For a five year 
loan, enter 60. For a thirty year mortgage, enter 360. The pro- 
gram then displays this information for you and calculates the 
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monthly payment that will cause the loan to be paid off with 
equal payments each month over the life of the loan. 

At this point you have four options. First, you can show a 
monthly analysis. This displays a month-by-month breakdown, 
showing the state of the loan after each payment. The four col- 
umns of data shown for each month are the payment number (or 
month number) of the loan, the remaining balance of the loan 
after that payment, the amount of that payment that was in- 
terest, and the accumulated interest paid to date. Twelve lines of 
data are displayed on the screen, and then you can either press 
the T key to get the final totals for the loan, or any other key to 
get the data for the next twelve months of the loan. 

The second option is overriding the monthly payment. It is a 
common practice with second mortgage loans to make smaller 
monthly payments each month with a large "balloon" payment 
as the final payment. You can use this second option to try 
various monthly payments to see how they affect that big pay- 
ment at the end. After overriding the monthly payment, you will 
want to use the first option next to get a monthly analysis and 
final totals using the new monthly payment. 

The third option is to simply start over. You will generally use 
this option if you are just comparing what the different monthly 
payments would be for different loan possibilities. 

The fourth option ends the program. 

By the way, there is a chance that the monthly payment 
calculated by your lender will differ from the one calculated here 
by a penny or two. We like to think that this is because we are 
making a more accurate calculation. 



NOTE: SEE DISCLAIMER IN FRONT PART OF BOOK 
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SAMPLE RUN 




The operator enters the three necessary pieces of information about his 
or her loan. 




The program responds with the monthly payment that will pay off the 
loan with equal payments over its life, then asks the operator what to do 
next. The operator will request a monthly analysis. 
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The program responds with information about the first twelve months 
of the loan, then waits. 




The operator presses "T", and after a few seconds the program displays 
totalling information about the loan. 
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PROGRAM LISTING 

REflDV- 



100 REM: LORN CRLCULflTOR 

110 rem: COPVRIGHT 1983 

111 REM: TOM RIJijG,. PHIL FELDMRN. RHD 

112 REM: UE:3TERN SV:3TEM:3 GROUP 
1 20 CLR : PR I HT CHR* U 47 > : EL*= " 
130 PRINT "LORN CRLCULRTOR" 

140 PRINT 

150 INPUT "LORN RMOUNT";R 

155 GOSUE 1000: IF R = THEN 150 

1(50 INPUT" INTEREST RRTE";R 

170 INPUT "LENGTH OF LORN <:M0NTHS>";N 

130 R = RES<R):M = R/1200 

1.90 G0:3UE 800 : W = 1 

200 FOR J = 1 TO N:W = W*<1+M>:NEXT 
210 P = <R*M*W>/a'J~l> 
220 P = INT(:P*100+.99> :P = P/100 
230 PR I NT "MONTHLY PRVMENT IS";P 
240 FP = P 

£50 PR I NT "NEXT RCTION:" 

270 PRINT" 1 ■- MONTHLV RHRLVSIS" 

280 PF;INT"2 ~ OVERRIDE PRVMENT" 

290 PR I NT "3 ~ STRRT OVER" 

300 PRIHT"4 - END" 

310 INPUT C 

320 ON C GOTO 448.400.120.370 
330 PR I NT "CHOICES RRE 1.2.3.4" 
340 GOTO 250 
370 END 
400 PRINT 

4 1 I f-JPUT " MONTHLV PRVMENT " P 

420 GOTO 240 

440 G0:3UB 459 : GOTO 510 

450 GOSUE 800 

460 PRINT TRE C 5 > ; " REMR I N I NO " ; 

470 PR I NT TRE ( 1 7 > ,: " — I N'T EREST " 

480 PR I HT " MO . BRLRNCE " .; TRE a 6 ) ; 
490 PR INT "MONTH ■ TO-DRTE" 
500 RETURN 

510 B = R*10O:TT = 0:TP = 0:L «= 

520 P P*100:Rit: == "":FOR J = 1 TO N 

530 T = M*E:T = INTf.T+.5> 

540 IF J N THEN P = B-i-T 

550 TP «= TP+P:E = E-P+T:TT = TT+T 

560 IF B < THEiN GOSUE 2000 

570 IF R* = "T" THEN 690 

580 W = E: GOSUE 900 : B* = Sf 

590 W ■ T: GOSUE 900 : T* « RIGHT*<S**8> 

600 W = TT: GOSUE 900:TT$ = " "+S* 
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6^^5 J* - STR$<J>:jif: == RIGHT$<J*. LEHCJ*)-! > 
610 PR I NT J* ; TAB < 4 > .; E* ; T$ ;. TT* 
S20 L = L+l:lF L < 12 THEN QSB 
630 PR I NT "PRESS KEV TO GO ON".; 

640 PRINT" CT totals;'"; 

650 GET R$:IF R$ = "" THEN 650 

660 L =» : 00 SUB 450 

670 IF R* <> "T" then 6SI0 

680 PRINT"CnLCULFlTIHG TOTALS. „ . , . " 

690 NEXT 

700 PRINT: PR I NT "LAST PflVMENT =".: 
710 PRINT P/100 

720 PRINT :PRINT"T0TAL PflVMENTS =".; 
730 PRINT TP/ 100 

740 PR I NT ■ PR I NT " riONTHLV F'A't'MENT WAS " J FP 
750 PRINT 

760 PR I NT "PRESS ANV KEV TO CONTINUE" 
77© GET X*:IF X* = "" THEN 778 
7S0 P « FP:GOTO 240 

800 PRINT CHR$ < 1 47 > : PR I NT A J " FOR " ; N ; 
810 PRINT"MO. AT";R; "V." 
820 RETURN 

.900 W = INTaJ>:S* == STRfCW::' 

910 K = LENCS*)"! :S* '= MID^^S*.. 2.. I<> 

920 IF K = 1 THEN S* = BL*-+" . 0"+S* : RETURN 

930 IF K = 2 THEN S$ = EL$+" . "+S* : RETURN 

940 = " . " +R I GHTf < S* 2 > 

950 S* = LEFT*''.;S$..K-2)+Df 

960 S* = LEFT*<EL*.S~HO+S* 

970 RETURN 

1000 A = ABSc:A>:A = INT(A> 
1010 IF A < 1000000 THEN RETURN 
1020 PR I NT "TOO LARGE AN AMOUNT" 
1030 A = 0: RETURN 

2000 P = P+E:TP = TP+E:E = 9 : RETURN 
READV. 



EASY CHANGES 

1 . The number of lines of data displayed on each screen when 
getting a monthly analysis can be changed by altering the 
constant 12 in statement 620. 

2. To include the monthly payment in the heading at the top of 
each screen of the monthly analysis, insert the following 
Hne: 

815 IF FPoO THEN PRINT«MONTHLY PAYMENT 

IS";FP 
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MAIN ROUTINES 


1 '>A 


1 /U 


Displays title. Gets loan information. 


zuu- 




Calculates and displays monthly payment. 




i /U 


Asks for next action. Goes to corresponding 






rouune. 


400- 


410 


Gets override for monthly payment. 


440- 


780 


Calculates and displays monthly analysis. 


800- 


820 


Subroutine to clear screen and display data about 






the loan at the top. 


900- 


970 


Subroutine to convert integer amount to fixed- 






length string with aligned decimal point. 


1000-1030 


Edits loan amount (size and whole dollar). 


2000 




Subroutine to handle early payoff of loan. 


MAIN VARIABLES 


BL$ 




String of 6 blank spaces. 


A 




Amount of loan. 


R 




Interest rate (percentage). 


N 




Length of loan (number of months). 


M 




Monthly interest rate (not percentage). 


W 




Work variable. 


P 




Monthly payment (times 100). 


FP 




First monthly payment. 


C 




Choice of next action. 


B 




Remaining balance of loan (times 100). 


TT 




Total interest to date (times 100). 


TP 




Total payments to date. 


L 




Number of lines of data on screen. 


R$ 




Reply from operator at keyboard. 


J ' 




Work variable for loops. 


T 




Monthly interest. 


B$ 




Remaining balance to be displayed (two decimal 






places). 


T$ 




Monthly interest to be displayed (two decimal 






places). 


TT$ 




Total interest to be displayed (two decimal places). 


S$,D$ 




Work strings. 


K 




Work variable. 
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SUGGESTED PROJECTS 

1. Display a more comprehensive analysis of the loan along 
with the final totals. Show the ratio of total payments to the 
amount of the loan (TP divided by A), for example. 

2. Modify the program to show an analysis of resulting 
monthly payments for a range of interest rates and/ or loan 
lengths near those provided by the operator. For example, if 
an interest rate of 9.5 percent was entered, display the 
monthly payments for 8.5, 9, 9.5, 10, and 10.5 percent. 



1 



MILEAGE 



PURPOSE 

For many of us, automobile operating efficiency is a continual 
concern. This program can help by keeping track of gasoline 
consumption, miles driven, and fuel mileage for a motor vehicle. 
It allows reading and writing data files with the cassette unit. 
Thus, a master data file may be retained and updated. The pro- 
gram computes mileage (miles per gallon or MPG) obtained 
after each gasoline fill-up. A running log of all information is 
maintained. This enables trends in vehicle operation efHciency 
to be easily checked. 

HOW TO USE IT 

The program requests the following data from the operator as 
a record of each gasoline fill-up: date, odometer reading, and 
number of gallons purchased. The most useful results will be ob- 
tained if entries are chronological and complete, with each entry 
representing a full gasoline fill-up. 

In order to use the cassette features, the operator must be able 
to position the tape correctly for both reading and writing. The 
simplest way to do this is to only record files at the beginning of 
a tape. One tape could certainly be used this way, with each file 
writing over the previous one. However, we suggest alternating 
between two physical tapes. This will insure a reasonably up-to- 
date back-up tape in case of any failure. 

The program operates from a central command mode. The 
operator requests branching to any one of five available subrou- 



46 More than 32 BASIC Programs for the Commodore 64 Computer 



tines. When a subroutine completes execution, control returns to 
the command mode for any additional requests. A brief descrip- 
tion of each subroutine now follows: 

1) READ OLD MASTER FILE 

This reads previously stored data from the cassette. Any data 
already in memory is deleted. During the read, the name of the 
data file and the total number of records read are displayed. 

2) INPUT FROM TERMINAL 

This allows data records to be entered directly from the ter- 
minal. This mode is used to provide additional information after 
a cassette read and to enter data for the first time. The program 
will prompt the operator for the required information and then 
let him verify that it was entered correctly. A response of "D" to 
the verification request signals that no more data is to be 
entered. 

3) WRITE NEW MASTER FILE 

This command causes the current data to be written on cas- 
sette. The program requests a name for the file. When later read, 
this name will be displayed, allowing verification of the correct 
data nie. 

4) DISPLAY MILEAGE DATA 

This subroutine computes mileage (miles per gallon) from the 
available data. It formats all information and displays it in tabu- 
lar form. Numerical values are rounded to the nearest tenth. 
When data fills the screen, the user is prompted to hit any key to 
continue the listing. When all data is displayed, hitting any key 
will re-enter command mode. 

5) TERMINATE PROGRAM 

Ends execution and returns the computer to BASIC. 



MILEAGE 



47 



SAMPLE RUN 




The program's menu is displayed and the operator chooses option 2. 
This allows data to be entered directly from the terminal. 




The operator inputs the first data record. 
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The program then displays the input and the operator confirms that it is 
correct. 




After ten more data records are input, the operator selects option 4 
from the command menu. This formats and displays the data along with 
the fuel MPG obtained. The program will re-enter command mode 
when a key is hit. 
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The operator selerts option 3 and writes the data to a file called 
VOLVOS 1 on cassette tape. 



niLEfiGE 

COHHAMD LIST 

1) READ OLD nflSTER flLE 

?) IMPUT DflTfl FROM TERMIHAL 

3) WRITE NEW MASTER FILE 

4) DISPLftV MILEfiGl DflTft 

5) TERMIHftTE PROGRAM 

ENTER COnilflHD BV MUHBER^ 1 

1-POSITIOH THE TAPE FOR READIHC 

PRESS PLflV OH TAPE 
OK 

READING FILE U01U081 
READING RECORDS tt 1 T- f -4 
8 3 18 11 



2- PRESS THE RECOROIR' 

3- PRESS ANV KEYBOARD riV 



By selecting option 1 in a subsequent run, the file VOLVOS 1 is retrieved 
from cassette tape to begin a new session. 
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PROGRAM LISTING 

RERDV. 

100 REM: MILERGE 

110 REM: COF'VRIOHT 1383 

111 REM: PHIL FELDMRH. TOM RUGG.. RND 

112 REM: WESTERN SVSTEMS GROUP 
140 CLR 

150 MW = 15 
160 MR = 20 
170 H 

180 DIM D*01R>.. DaiR>. OaiR). Ma'1R> 

200 PR I HT CHR* a 47 > : PR I HT TRE a 2 '.J ; " M I. LERGE " 

210 PRINT :R - 

220 PRINT"COMMRND LIST" 

230 PRINT" 1> RERD OLD MASTER FILE" 

240 PRINT" 2) INPUT DRTR FROM TERMINRL" 

250 PRINT" 3> WRITE NEW MRSTER FILE" 

260 PR1NT"4-;' DISPLRV MILERGE DflTR" 

270 PRINT"5> TERMINRTE PROGRRM" 

280 PRINT 

290 INPUT "ENTER COMMAND EV NUMBER" ;R 

300 R = INTCR) 

310 IF R == 5 THEN 1800 

320 ON R GOTO 1500.. 408, 800.. 1 100 

330 GOTO 200 

400 IF N < MR THEN 440 

410 PRINT 

420 PRINT"** NO MORE DRTR RLLOWED **" 
430 GOSUB 2000: GOTO 200 
440 PRINT CHR*a47> 

450 PR INT "ENTER THE FOLLOWING DRTR:" 

460 PRINT"-- DATE (E.G. 1/23/82" 

470 PRINT"- ODOMETER REflBIHG ailLES)" 

480 PRINT"- GALLONS BOUGHT" 

490 N = N+1 : INPUT"DRTE";R* 

500 R* • LEFT«:<R*.8>:D*<N> = R* 

510 INPUT "ODOMETER".; R:D(N> = R 

520 IF R < THEN 518 

530 INPUT "GRLL0NS".;R:G<H> = R 

540 IF R < THEN 530 

550 PRINT i::HR*a47> 

560 PRINT" INPUT DATE: ";D*a-i> 

570 PRINT" CHECK ODOMETER :"; D<N? 

580 PR I NT TAB a .; " GALLONS : " J G < N > 

5.90 PRINT: PRINT" ~ IS INPUT OK ? - " 

600 INPUT" <V-VES..N=NO.r='VES AND DONE) " .: Rst 

610 R* = LEFT$'r,R$. 1> 

620 IF R* <> "N" THEN 660 
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630 W = N--1 ; PRINT 

640 PR I NT "PLEASE RE-ENTER LRST DRTR" 
650 GOTO 490 

660 IF R* "It" THEN £00 
670 IF R* <> "V" THEN 590 
680 IF N = MR THEN 413 
630 GOTO 4:30 
S00 IF N > THEN 830 

81S PRINT: PRINT"** NO DflTl-l TO WRITE **" 

820 GOSUE £000: GOTO £00 

830 R* -- "WRITING" ; GOSUE 3000 

860 PRINT 

870 INPUT"Nfir'iE FOR FILE".;T* 

880 K - i-i-lF N > m THEN K = MW 

830 OPEN 1 .. 1 .. 1 .. "MILERGE" 

.900 PR I NT« 1 .. T* : PR I NT# 1 . K 

910 K = 1:L N:IF N <= MW THEN 930 

920 PRINT" - ONLV THE LAST" ; MW; " VRLUES" 

930 PRINT" WILL BE WRITTEN" 

940 K = N-MW+1 

950 PRINT "WRITING TAPE FILE: " ; T* 

960 PRINT" RECORDS #"; 

970 FOR J = K TO L 

980 PRINTttl.. Ii*-C.T> 

982 PRINT#1..IJ(:J> 

994 PRINT#1.GU';' 

990 PRINT J; : NEXT: PRINT 

1000 CLOSE l:P* = "£":Rf- = "3" 

1010 PR I NT: GOSUE 3200: GOTO 200 

1100 IF N > THEN 1130 

1110 PRINT; PRINT"** NOT ENOUGH DRTR **" 
1120 G0:5UB 2000 : GOTO £00 
1130 MCr; = 0:FOR J = 2 TO N 
1150 IF G';j> > THEN 1170 
1160 M ~ 0:GOTO 1190 

1170 R = ';dc,t>-d<j-i>>/g<j> 

1180 MC.T> = R:IF R < THEN MCJ) = Q 

1190 HEXT:l< = -11 :L = 

1200 K = K+1£:L = L +12 

1210 IF L > N THEN L = N 

1220 PRINT CHR$<147> 

1230 PRINT"DATE ODOMETER"; 

1240 PRINT TREaS>; "GALLONS MPG" 

1250 FOR J = K TO L:Q = D<J> 

1260 OOSUB 4000 

1270 IF Q > 99999 THEN Q » SSSSS 

12S0 GOSUB 4100 

1290 PRINT D*CJ>;TRBa3-T);i3; 

1300 Q =»GU>: GOSUE 4000 

1310 IF Q > 999 THEN Q = 999 



52 More than 32 BASIC Programs for the Commodore 64 Computer 



13£i:"i GOSUB 4100 

1330 PRINT TRB<20-T>;Q; 

1340 Q = riCJ>: GOSUB 4000 

1350 IF Q > 939 THEN Q = 999 

1360 GOSUE 4100 

1370 PRINT TflE<27~T>;Q:NEXT 

1380 PRINT: IF L < N THEN 1410 

1390 PR I NT "HIT RNV KEV FOR COMMRHD MODE" 

1400 GOSUE 3220; GOTO 200 

1410 PR I NT "HIT PINV KEV TO CONTINUE" 

1420 GOSUE 3220: GOTO i£00 

1500 R* = "READING" : GOSUE 3080 

1560 OPEN 1. 1.0. "MILERGE" 

1570 PRINT: INPUTttl.T* 

15S0 PRINT"RERDING FILE: ".'.T* 

1590 INPUTttl.N 

1600 IF H •;:= MR THEN 1649 

1610 PRINT 

1620 PRINT"**. TOO MRNV RECORDS ON TRPE **" 

1630 GOSUB 2000: END 

1640 PRINT"RERBING RECORDS # "; 

1650 FOR J = 1 TO N 

1660 INPUT#1.D*'.'.J> 

1662 INPUTttl .. D':;J::' 

1664 INPUT#1 .. GCJ> 

1670 PRINT J; :NEKT:CLC:5E 1 

16S0 PRINT: PRINT :F-* = "2":r$ = "3" 

1690 GOSUB 3200: GOTO 2B2 

1S00 END 

2000 FOR Q = 1 TO 2000: NEXT 
2500 RETURN 
3000 PRINT 

3010 PRINT" 1 -POSITION THE TRPE FOR " R* 
3020 RETURN 

3200 PRINT P*; "-PRESS THE RECORDER'S STOP KEV" 
3210 PRINT R*; "-PRESS RNV KEVBORRD KEV" 
3220 GET R* 

3230 IF R* •- "" THEN 3220 
3240 RETURN 

4000 Q = 12*10+0.5:13 = INT<Q:'/10 
4010 RETURN 

4100 IF Q > 9999 THEN T = 5 : RETURN 
4110 IF Q > 999 THEN T = 4: RETURN 
4120 IF Q > 99 THEN T = 3: RETURN 
4130 IF Q > 9 THEN T = 2: RETURN 
4140 T = 1 : RETURN 

RERDV. 

EASY CHANGES 

1. Changing the value of MR in line 160 alters the maximum 
number of data records that the program allows. You may 
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need to make MR larger to accommodate additional data. 
To adjust MR, simply change its value in line 160 from its 
current value of 20 to whatever you choose. 

2. Currently, the program will write a maximum of fifteen data 
records during the cassette write operation. This number can 
be altered by changing the value of MW in line 150 from its 
value of fifteen to whatever you choose. Only the most re- 
cent MW records will be written to tape if MW is less than 
the number of available records when a cassette write is is- 
sued. If the number of available records is less than MW, 
then all the records will be written. The value of MW should 
not be larger than the value of MR. 

3. If you do not care about seeing the dates, they can be re- 
moved easily. This saves a little typing on data entry. To 
remove this feature, delete line 460 entirely and change line 
490 to read 

490 N = N -(- 1 :PRINT:R$ = " " 



MAIN ROUTINES 



140- 


180 


200- 


330 


400- 


690 


800- 


1010 


1100- 


1420 


1500- 


1690 


1800 




2000- 


2500 


3000- 


■3240 


4000- 


4010 


4100- 


4140 



Dimensioning and variable initialization. 
Command mode. Displays available subroutines. 
Accepts terminal input. 
Writes data to the cassette unit. 
Calculates mileage and displays all information. 
Reads data from the cassette unit. 
Terminates execution. 
Delay loop. 

Displays messages for cassette operation. 
Numerical rounding subroutine. 
Sets TAB arguments for printing. 



MAIN VARIABLES 



MW Maximum number of data records to write. 

MR Maximum number of data records in memory. 

N Current number of data records in memory. 

D$ Array of dates. 

D Array of odometer readings. 

G Array of gallons per fill-up. 

M Array of mileage per fill-up. 

R Command mode input. 

P$,R$ Temporary string variables. 
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T$ Data file name used in reading or writing with 

cassette. 

J Work variable, loop index. 

K,L Loop bounds. 

Q Work variable. 

T TAB argument decrement. 



SUGGESTED PROJECTS 

1. Calculate and print the average MPG over the whole data 
file. The total miles driven is D(N) - D(l). The total gallons 
used is the sum of G(J) for J = 2 to N. This calculation can 
be done at the end of the DISPLAY MILEAGE subroutine. 
Programming should be done between lines 1370 and 1380. 

2. Allow the user the option to write to cassette only the entries 
since a certain date. Ask which date and search the D$ array 
for it. Then set MW to the appropriate number of records to 
write. These changes are to be made at and after line 800 at 
the beginning of the subroutine to write on cassette. 

3. Add a new command option to verify a data file just written 
to cassette. It would read the tape and compare it to the data 
already in memory. 

4. Add an option to do statistical calculations over a given sub- 
set of the data. The operator inputs a beginning and ending 
date. He is then shown things like average MPG, total miles 
driven, total gallons purchased, etc.; all computed only over 
the range requested. 

5. Write a subroutine to graphically display MPG. A bar graph 
might work well. 

6. Add a new parameter in each data record— the cost of each 
fill-up. Then compute things like the total cost of gasoline, 
miles/dollar, etc. 



QUEST/EXAM 



PURPOSE 

If you've ever had to analyze the resuhs of a questionnaire, or 
grade a multiple-choice examination, you know what a tedious 
and time-consuming process it can be. This is particularly true if 
you need to accumulate statistics for each question showing how 
many people responded with each possible answer. 

With this program, you provide the data, and the computer 
does the work. 

HOW TO USE IT 

As currently set up, the program assumes that the question- 
naire or exam has 15 questions, that there are four choices per 
question, and that there are no more than 20 entries (exam 
papers). If you wish, these limits can be increased. See the Easy 
Changes section for details. 

To start off, the program asks you for the answer key. If you 
are scoring an exam, provide the correct answers. The program 
displays "guide numbers" to help you keep track of which 
answers you are providing. If you are analyzing a questionnaire, 
you have no answer key, so just press the RETURN key. 

Now the program asks you to begin providing the answers for 
each entry. Again, guide numbers are displayed above the area 
where you are to enter the data so you can more easily provide 
the proper answer for the proper question number. If no answer 
was given for a particular question, leave a blank space. How- 
ever, if the first question was left blank, you will have to enclose 
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the entire string of answers within quotation marks. This will 
cause a small problem in keeping your alignment straight with 
the guide numbers, but you'll get used to it. 

If you make a mistake when entering the data, the program 
will tell you and ask you to re-enter it. This is most commonly 
caused by either failing to enter the correct number of answers 
or entering an invalid character instead of an acceptable answer 
number. Remember that each answer must be either a blank or a 
number from one to the number of choices allowed per 
question. 

By the way, you can avoid entering blanks for unanswered 
questions. Suppose you have a maximum of 5 possible answers 
per question. Simply tell the program there are 6 choices per 
question. Then, when a question is unanswered, you can enter a 
6 instead of leaving it blank. 

If you provided an answer key, the program displays the num- 
ber and percentage correct after each entry before going on to 
ask for the next one. When you have no more entries, press the 
RETURN key instead of entering a string of answers. 

At this point, the program displays four options from which 
you choose your next action. Here are brief explanations. You 
can experiment to verify how they work. 

Option one lets you analyze each question, to see how many 
people responded with each answer. The percentage of people 
who responded with each answer is also shown. In the case of an 
exam, the correct answer is indicated with the letter "C" to the 
right. 

Option two allows you to go back and provide more entries. 
This allows you to pause after entering part of the data, do some 
analysis of what you have entered so far, and then go back and 
continue entering data. 

Option three lets you review what you have entered, including 
the answer key. This permits you to check for duplicate, 
omitted, or erroneous entries. 

Option four ends the program. 
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SAMPLE RUN 




The operator provides the answer key for the examination being scored. 
The program waits for the data from the first examination paper. 




The answers are entered for the first student. The program responds 
with the number and percentage correct. 
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Later, instead of providing data for a ninth student, the operator 
presses the RETURN key, indicating that there are no more entries. The 
program displays the overall percentage correct, and displays a menu of 
choices. The operator will pick option 1 . 




The program provides an analysis of the responses for question number 
one, then waits for a key to be pressed. Note that seven students 
answered with number 1, the correct answer. 
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Later, the operator asks for option 3, which lists the data entered for 
each of the students. 



PROGRAM LISTING 

REflDV. 



100 rem: qijestionrire/exrm 

110 rem: copyright 13S3 

111 REM: TOM RUQO. PHIL FELDMFlH.. RNC 

112 REM: WESTERN SVSTEMS GROUP 
120 CLR:PRIHT CHR$a47) 

130 PRIWT"QUESTIOHflIRE/EXflM RNRLVZER" 

140 E* = "ERROR. RE-ENTER. " :P* = "PRESS fl KEV" 

150 Q = 15 :C = 4:N = 29 

160 DIM Q^iW ,C':c:> 

250 PRINT 

260 PRINT "ENTER ANSWER KEV OR PRESS RETURN" 

270 GQSUE 900 :C* = RIGHTf-C3TR*<C> . 1 > 

310 INPUT fl*:IF LEN<R*::' = 8 THEN 340 

320 IF LEN'::R$> O Q THEN PRINT E«: : GOTO 250 

330 T$ = Rir:G0:5UE 850 

335 IF T* = "I?" THEN PRINT E* : GOTO 250 
340 K s= 1 

350 R = 0:PRINT:PRIHT"ENTRV NUMBER" ;K 
360 GOSUS 900 

370 INPUT q*(:k>:w = len<C!$<k;o 
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380 IF W = THEN 500 

390 IF U <> Q THEN PRINT E$ ; GOTO 350 

400 T$ = Q*aw':OOSlJB 850 

405 IF T* = "E" THEN PRINT E* : GOTO 350 

430 IF LEN'.: !=!*:■' = THEN 480 

440 FOR J = 1 TO Q 

450 IF riiD*cfl*,j.n = mii3*(:q*c:k>.. J. i> then r = r+i 

460 NEXT 

470 TR = TR+R:PRINT R; "CORRECT.. " ; 

475 PRINT R*100/Q; "PERCENT" 

480 K == K+1 : IF K <= N THEN 350 

500 K = K-l : IF LENtlR*) = THEN 520 

5 1 PR I NT " R VERROE = " ; TR* 1 00/ C Q^'K >;" PERCENT " 

520 GOTO 960 

530 FOR J = 1 TO Q:R 0: PRINT 
540 PRINT"RNFILVSIS FOR QUESTION NO.".: J 
545 PR I NT "RESPONSE COUNT PERCENT" 
550 FOR L -■ TO C:CCL) = 0-HEXT-M ~ & 
560 FOR L = 1 TO K : T$ = MID*<Q*<L> .. J. 1 > 
570 W = VflL'::T*> :C<W:) = C'::w::' + l : NEXT 
610 FOR L = 1 TO C: PRINT L,;TREai); 
620 PR I NT C < L > ; TRE <. 1 8 > ; C < L > * 1 e0/K ; 
630 IF LENc:R*> = THEN PRINT: GOTO 660 
640 T* = RIGHT*CSTR*CL). 

650 IF T* = MID*<R*.J. THEN PRINT"C" : GOTO 660 
655 PRINT 

660 NEXT : PR INT" BLANK " ; TRB < 1 1 > ; C 03 > ; TAB U 8 > ; 
670 PRINT C<0)*100/K: PRINT F$- 
680 GET X*: IF X* = "" THEN 680 
690 NEXT J : GOTO S'60 

700 L ~ 0:GOSUE 300: IF LEN^R*;' = THEN 720 

7 1 S PR I NT TAB <. 2 > ; R$ i " — KEV " 

720 FOR J = 1 TO K 

730 PR I NT TRE < 2 ? ; G* <. J ) " —NO " ; J ; 

740 PRINT 

750 L = L+1 : IF L < 10 THEN 780 

760 L = 0: PRINT P$ 

770 GET Xir:lF X* = "" THEN 770 

780 NEXT: PRINT P* 

790 GET X3::IF X* = "" THEN 790 

900 GOTO 960 

850 FOR J = 1 TO LENf.T$) 

855 IF MID^CT*. J. 1> = " " THEN 870 

860 IF MID*<T*.J.n < "1" THEN 889 

865 IF MIIi*(:T$..J. n > C* THEN 880 

870 NEXT : RETURf-J 

880 r-$ = "B" : RETURN 

900 W = Q/10:IF W < 1 THEN 929 

910 FOR J = 1 TO W: PRINT TRBC J*10> ; J. i : NEXT : PRINT 
920 PRINT TRBC2>; 
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330 FOR J = 1 TO Q:T* = STR^CJ) 

940 PRINT r'1ID*<T$.LENa*>.. 1); : NEXT : PRINT : RETURN 

960 PRINT ;PRINT"NEXT RCTIOH'" 

,970 PRINT" 1 - RHRLVZE QUESTIONS" 

980 PR I NT "2 -■ RUD MORE ENTRIES" 

990 PRINT"3 - REVIEW DflTFl ENTERED" 

1000 PR I NT "4 -- END PROORRM" 

1040 INPUT T*:T* =» LEFT^CT*.. 1 > 

1050 IF Tip < "1" OR Tt- > "4" THEN 1070 

1060 ON VRL(:T$) goto 530.480.700,1100 

1070 PRINT E*:C0T0 960 

1100 END 

RERDV. 



EASY CHANGES 

1 . You can allow for more questions per exam, more choices 
per question, and more students (or questionnaire 
respondents). For example, to allow for 25 questions, five 
choices per question, and 40 students, make this change: 

150Q = 25:C = 5:N = 40 



MAIN ROUTINES 

120- 140 Initializes variables. 

150- 160 Sets limits for questions, choices, and entries. 

Allocates arrays. 
250- 320 Gets answer key (if any) from operator. 
330- 335 Checks legality of answer key. 
350- 400 Gets exam data for Kth entry. 
430- 475 Scores Kth exam, if applicable. 
500- 510 Displays average score, if an exam. 
530- 690 Analyzes responses to each question. 
700- 800 Displays data entered. 
850- 880 Subroutine to check legality of input data. 
900- 940 Subroutine to display guide numbers over input 

data area. 

960-1 100 Displays choices for next action. Gets response and 
goes to appropriate routine. 
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MAIN VARIABLES 




jcrrur mcaaagc. 
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K 


Counter of number of exams scored. 


R 


Number of questions answered right (if exam). 


W 


Work variable. 


J,L,M 


Loop variables. 


TR 


Total right for all entries. 


T$ 


Temporary work string variable. 



SUGGESTED PROJECTS 

1 . Add an option to change the answer key after the data for 
the exams is entered. This would be useful in case a mistake 
is found when reviewing the data. 

2. Add an option to allow the operator to re-score each of the 
exams after all are entered, in case some were overlooked at 
the time of entry. 

3. Combine some of the capabilities of the STATS program 
with this one. 

4. Allow the operator to enter a name for each exam paper. 
This will make it easier to review which person's exam has 
been entered when option three is used. 



SORTLIST 



PURPOSE 

This program sorts a list of items (words or phrases) into 
alphabetical order. This is a tedious task to do manually, but 
your computer can do it in seconds. All you need to do is type in 
the list of items that need to be sorted. 

HOW TO USE IT 

Simply type in the list of items that you want sorted, pressing 
RETURN after each one. An item does not have to be single 
word. You can have embedded spaces, but not commas or co- 
lons (unless the entire item is enclosed in quotation marks). 

When done with your list, type the word END and press 
RETURN. The program then tells you how many items were en- 
tered and begins displaying them in sorted (alphabetical) order. 
If you have more than 14 items, you will want to use the Com- 
modore 64's capability to stop scrolling the display by pressing 
STOP/RUN. This will stop the program before the first items 
disappear from the screen. Then you can let the list continue by 
typing CONT followed by RETURN. If you do not stop the list 
quickly enough, you can type GOTO 500 after the program ends 
to display the list again. You may also want to try the Easy 
Change below that puts more than one item on each line of the 
display. 

This program sorts string data. This means that you can also 
enter numeric data, but it will not sort numerically the way you 
probably would want. For example, if you entered the numbers 
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1, 2, 13, and 20, they would be sorted into the sequence 1, 13, 2, 
20. The number 13 is sorted ahead of 2 because the first position 
gets sorted "alphabetically," and 1 comes ahead of 2. 

You may find this program useful as shown, or you may want 
to maice use of the technique it uses as part of a larger program. 
The sorting technique used is called a straight selection sort (see 
the book by Knuth in the bibliography). It has the advantages of 
being very simply programmed and executing quite quickly for 
small lists— no more than 30 to 50 or so. This program typically 
takes about four to seven seconds to sort 30 items, and about 
eight to thirteen seconds for 40 items, depending on the length 
and initial sequence of the items. 



SAMPLE RUN 




The operator enters eight names, and END to end the entry list. 




The program displays the alphabetized list, and then ends. 

PROGRAM LISTING 

REflDV. 



100 rem: sort R list 
lie rem: copyright 1983 

111 REM: TOM RIJGG. PHIL FELDMflN. RND 

112 rem: WESTERI-J SYSTEMS GROUP 
130 CLR 

140 H = 50 :E* a "END" 
150 DIM I=I*<:N> :G0SUB 6@0 
160 K = 1 

170 IF K > H THEN 258 

180 PRINT K.;: INPUT R$:IF R* = "" THEN 188 

185 IF R* = E* THEN 258 

200 R*CK> = R*:K = K+l:GOTO 170 

250 K = K-l:lF K > THEN 300 

260 PRINT"** NO INPUT TO SORT **" 

270 GOTO 160 

300 PRINT K.; "ITEMS ENTERED." 
350 IF K = 1 THEN 500 
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360 FOR J « K TO 2 STEP -1 
370 R$ = fl*a>:F = 1 
380 FOR L = 2 TO J 

3.90 IF m<.Ly > Rf THEN R* = flfCLJ^F L 
400 HEXT:fl*<F;' « R$CJ>:n*(J> = R$ 
410 NEMT 

500 FOR J = 1 TO K 
510 PRINT J;TREc:4>.;R*CJ> 
520 NEXT 
550 END 

680 PRINT CHR*a47> 

610 PRINT"** SORT fl LIST **" 

620 PRINT 

630 PR I NT "ENTER EACH ITEM. " 

640 PRINT NJ "ITEMS MRXIMUM. " 

650 PRINT"'-".;E*J "' TO COMPLETE THE LIST. 

660 RETURN 

REflDV. 



EASY CHANGES 

1 . Some simple changes can allow the program to handle more 
data. You can allow for up to 100 items, where the average 
item is no more than nine or ten characters long, by making 
this change: 

140N=100:E$ = "END" 

You can have up to about 800 items of the same length with: 

140 N = 800:E$ = "END" 

Be aware that 100 items may take 40 to 60 seconds or more 
to sort, and 800 will take more than simply eight times that. 

2. If you want to sort numbers instead of alphabetic data, 
make these changes: 

a. Delete the dollar signs in lines 150, 200, 370, 390, 400, 
and 510. 

b. Insert this line: 
195 R = VAL(R$) 

c. Change the title, if you wish. For example, replace 
"ITEM" in line 630 with "NUMBER," and "ITEMS" in 
640 with "NUMBERS." 

3. To reduce the problem of getting only 14 to 16 items on the 
screen at once, you can try one of these changes: 

510 PRINT J;A$(J);"/"; 
or 

510 PRINT A$(J);"/"; 
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This will print multiple items separated by slashes on each 
line. The second change will also eliminate the item number 
from the display. Of course, you can separate the items with 
some character other than a slash if you like. 

4. To use some word other than END to indicate the end of the 
list of items, change line 140. For example, to use DONE: 

140 N = 50:E$ = "DONE" 

5. To slow down the display of the sorted list, you can insert: 

515 FOR L= 1 TO 200:NEXT 

MAIN ROUTINES 



130-150 Initializes variables. Displays instructions. 

160-300 Inputs items to be sorted. 

350-410 Sorts items alphabetically. 

500-550 Displays sorted items and ends program. 

600-660 Subroutine to display title and instructions. 

MAIN VARIABLES 

N Maximum number of items that can be entered. 

E$ Word to end entry of items. 

A$ Array of items to be sorted (in place). 

K Count of number of items actually entered. 

R$ Reply from operator. Also a work string variable. 

J,L,F Work and subscript variables. 



SUGGESTED PROJECTS 

1 . Replace the sorting technique with one that is more efficient 
for large numbers of items. Knuth's and Gruenberger's 
books (see bibliography) both have discussions of 
alternatives. 

2. Give the program the capability to add or change some items 
after the list has been sorted. 

3 . Add an option to allow the sorted list to be saved on cassette 
so it can be loaded into another program when needed. 
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Section 2 
Educational Programs 



INTRODUCTION TO EDUCATION PROGRAMS 

Education is one area where computers are certain to have 
more and more impact. Though a computer cannot completely 
replace a human teacher, the machine does have certain advan- 
tages. It is ready anytime you are, allows you to go at your own 
pace, handles rote drill effortlessly, and is devoid of any person- 
ality conflicts. 

With a good software library, the Commodore 64 can be a 
valuable learning center in the school or at home. Here are seven 
programs to get you started. 

Mathematics is certainly a "natural" subject for computers. 
NUMBERS is designed for pre-school children. While familiar- 
izing youngsters with computers, it provides an entertaining way 
for them to learn numbers and elementary counting. ARITH- 
METIC is aimed at older, grade school students. It provides drill 
in various kinds of math problems. The child can adjust the dif- 
ficulty factors, allowing the program to be useful for several 
years. 

By no means is the Commodore 64 restricted to mathematical 
disciplines. We include two programs designed to improve your 
word skills. VOCAB will help you expand your vocabulary. 
TACHIST turns the computer into a reading clinic, helping you 
to improve your reading speed. 

With the proper programs, the computer can teach you 
specific subjects. If you've ever wanted to learn International 
Radio Code, HAMCODE will instruct and then drill you. Many 
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of us feel uncomfortable becoming familiar with the increasingly 
prevalent metric system. METRIC is the answer to this. 

But, what about software that you can customize to help you 
learn a subject of your choice? FLASHCARD allows you to 
create your own "computer flashcards." Then you can drill your- 
self until you get it right. 



ARITHMETIC 



PURPOSE 

ARITHMETIC provides mathematics drills for grade school 
children. The student can request problems in addition, subtrac- 
tion, or multiplication from the program. Also, he or she may 
ask that the problems be easy, medium, or hard. The program 
should be useful to a child over an extended period of time. He 
can progress naturally to a harder category of problems when he 
begins to regularly perform well at one level. The difficulty and 
types of problems encompass those normally encountered by 
school children between the ages of six and ten. 

The problems are constructed randomly within the constraints 
imposed by the degree of difficulty selected. This gives the stu- 
dent fresh practice each time the program is used. After entering 
answers, he is told whether he was right or wrong. The correct 
answers are also displayed. 

HOW TO USE IT 

First, the student must indicate what type of problem he 
wishes to do. The program requests an input of 1, 2, or 3 to in- 
dicate addition, subtraction, or multiplication, respectively. It 
then asks whether easy, medium, or hard problems are desired. 
Again an input of 1, 2, or 3 is required. 

Now the screen will clear and four problems of the desired 
type will be displayed. The user now begins to enter his answers 
to each problem. 



72 More than 32 BASIC Programs for the Commodore 64 Computer 



A question mark is used to prompt the user for each digit of 
the answer, one digit at a time. This is done moving right to left, 
the way arithmetic problems are naturally solved. 

To start each problem, the question mark will appear in the 
spot for the rightmost (or units column) digit of the answer. 
When the key for a digit from 0-9 is pressed, that digit will 
replace the question mark on the screen. The question mark 
moves to the immediate left waiting for a digit for the "tens" 
column. 

Digits are entered in this right to left manner until the com- 
plete answer has been input. Then the RETURN key must be 
pressed. This will end the answer to the current problem and 
move the question mark to begin the answer for the next 
question. 

If the RETURN key is pressed to begin a problem, an answer 
of zero is assumed intended. No problems created by this pro- 
gram have answers of more than three digits. If a four-digit 
answer is given, the program will accept the answer, but then go 
immediately to the next problem. Answers to the problems are 
never negative. 

The program will display the correct answers to the four prob- 
lems on the screen after the student has entered his four answers. 
The message "RIGHT!" or "WRONG!" will also be displayed 
below each problem. 

Then the message "HIT ANY KEY TO CONTINUE" will be 
displayed. After the key is pressed, a new set of four problems of 
the same type will be presented. 

This continues until twenty problems have been worked. The 
program then shows what the student's performance has been. 
This is expressed as the number of problems solved correctly and 
also as the percentage of problems solved correctly. 




The initial set of 4 problems is presented. With a question mark, the 
program prompts the operator for the answer to the first problem. 
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PROGRAM LISTING 
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100 REM: RRITHMETIC 

110 REM: COPVRIGHT 1983 

111 rem: PHIL FELDMRN. TOM RUGG. RND 

112 REM: WESTERN SYSTEMS GROUP 
140 S == 1024 

150 HD=0:R=RND';-Tn 

160 DIM n(:4>.B<4>.C(:4)..G<4> 

170 HP=20 

180 GOSUE 910 

200 PRINT: PRINT 

205 PRINT"WHRT TVPE OF PROBLEM SHALL WE DO?": PR I NT 

210 PRINT TRB<5);"1 - ADDITION" 

220 PRINT TflE<5>.;"2 - SUBTRRCTION" 

230 PRINT TRB';5>.;"3 -- MULT I PL I CRT ION" 

240 PR I NT: PR I NT "WHICH TVPE ''A, 2> OR 3> ?"; 
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250 GET R*:T=VRL(;R$> : IF T-Cl OR T>3 THEN 250 

260 PRIHT CHR*<157>; "-";T 

270 PR I HT ; FOR J= 1 TO 39 : PR I NT " = " .; : NEXT 

275 PRINT;PRIHT:PRI.NT"WHRT KIND SHALL WE DO?" 

2S0 PR I NT: PR I NT TRBCSJ.;"! - ERSV PROBLEMS" 

2S'0 PRINT TRB'::5;'.;"£ - MEDIUM PROBLEMS" 

300 PRINT TflE(:5>.:"3 - HRRD PROBLEMS" 

310 PRINT: PRINT "WHRT KIND a.. £.. OR 3> 

320 GET R*:D=VRL<R#> : IF D<1 OR D>3 THEN 320 

330 PRINT CHR*a37>; "-".;D 

350 ON D GOTO 360.. 370, :330 

360 GOSUE D40:GOSUE 320:GO£UE 330: GOTO 400 
370 GCSUB S'40: GOSUE S'30:IF T=3 THEN OCSUB S60 
375 GOSUE 920: GOTO 400 

3S0 IF T03 THEN OOSUB 950 : GOSUB :;)2e : GOTO 400 
390 GOSUB S-Se: OCSUB 920 : GOSUE 930 
395 IF T=3 THEN GOSUB 946 : GOSUE 939 
400 IF T02 THEN 450 
410 FOR J=l TO 4 

420 IF B(:j;'>C(:j> then r=c<j) :c<j;'=B(:j> :b<j>=r 

430 NEXT 

450 GOSUE 1000: GCSUB 910 

600 V= 1 2 : FOR J-= 1 TO 4 : >:;==• -'4+.. Tit: 8 : GOSUE • 1 1 00 : NEXT 

610 FOR I<=1 TO 4 : X«-4+K*8 : GCSUB 800 : G<K>=N : NEXT 

620 X== 1 7 : V= 1 6 : GCSUB 1200: pR i Hj FiNSWER:3 " 

630 V~18:F0R J==1 to 4 : X==-4+J*S : GOSUE 1430: NEXT 

640 V=20:F0R J=l TO 4 : X=-7+J*S : GOSUB 1200 

650 IF R<J><>G<J::' then PRINT CHRfas; ; "WRONG ! " 

655 IF fi';:jvr:>G(:j;. THEN GOTO S70 

660 PR I NT " R I GHT ! " : NR==NR+ 1 

670 NEXT: FOR K~l TO 9 : GET R* : NEXT 

680 PRINT: PRINT: PRINT "HIT rnv KEV TO CONTINUE" 

690 GET R*: IF R-$-"" THEN 690 

700 FOR J=l TO 10: GET R* : NEXT 

710 NB==ND+4:IF KD<NP THEN GOSUB 910: GOTO 350 

720 GOSUE 1500 

730 END 

800 H»0:M=1 :F0R J-1 TO 10: GET R* : NEXT 

810 P=63: GCSUB 900 

820 GET R$::IF m="" THEN 820 

825 R=RSC'::R$:> 

827 IF R=13 nm M=l THEN P=4S : GOSUB 900 : RETURN 

830 IF R=13 THEN P==32 : GOSUE 300 : RETURN 

840 V=VRL'::R*> : IF V=0 RND fl<>4S THEN S20 

850 P=4S+ V : COSUE 900 : N=N+M*V : M=M* 1 

860 IF M>1000 THEN RETURN 

370 X«X-1 :GOTO 810 

300 POKE S+X+40*V..P: RETURN 

9 1 PR I NT CHR$ 1 47 > i CHR* 1 3 > ; TRB <. 1 > .: CHR* ■:; 1 S > ; 
915 PRINT "R R I T H M E T I C": RETURN 
320 FOR K^l TO 4 : C<K> = INT(:RND< 1 /:K''H~L+1 > :j+L 
925 NEXT : RETURN 



76 More than 32 BASIC Programs for the Commodore 64 Computer 



:?30 FOR K=l TO 4 : B<K;' = IHT'.-:n;Hr!a ■-•■sHCH-L+l > J+L 

935 NEXT : RETURN 

.940 H=9 : L=0 : RETURN 

950 H=99 : L=0 : RETURN 

9r30 H=£5:L=1 : RETURN 

1000 ON T COTO 10.10.. 1020.. 1030 

1 1 FOR J= 1 TO 4 : F1 J ) =E < .J > +r: < .J > : NEXT : RETURN 

1 020 FOR J= 1 TO 4 : fl J > ==C U > -B < J> : NEXT ■ RETURN 

1030 FOR J=l TO 4:nCT>=C';j>*BCT;:. :NEXT:RETURN 

1 1 00 COSUB 1 20Q! ■ CU=5 ■ CL==£: ■ COSUB 1 300 

1110 IF CCJX10 THEN PRINT CHR* ■:; 32 ) ; 

1120 PRINT Ct J;' : GOSUB 1280 : CU=3 ^ CL=3 : GOSUB 1300 

1125 IF T=l THEN PRINT CHRJ? (43::' 

1130 IF T=2 THEN PRINT CHR*<:45>; 

1140 IF T=3 THEN PRINT r:HRi!;'::£14? .; 

1150 IF B<J><10 THEN PRINT CHR*<32J; 

1 1 60 PR INT E CJ > : OOSUB 1 200 : CU=2 : CL=3 ; GOSUE 1300 

1165 FOR K=l TO 4: PRINT CHR*Ci64>.; 

1170 NEXT: RETURN 

1200 PRINT CHR*<19>; 

1205 FOR K=l TO X: PRINT CHR*<29) : NEXT 

1210 FOR K" 1 TO V : PR I NT CHR* a 7 J .: : NEXT : RETURN 

1300 FOR K=l TO CU:PRINT CHR*'' 145) NEXT 

1310 FOR 1 TO CL ■ PR I NT CHR* 1 57 > .; : NEXT : RETURN 

1400 GOSUB 1200:CL=i:lF flC.T>>9 THEN CL=2 

1410 IF acj;'>99 THEN CL=3 

1420 IF a(:j>>:599 then CL=4 

1430 FOR K==l TO CL: PRINT CHR*<i57>; : NEXT 

1 A-'\2 PR I NT R '.. J ■;• : RETURN 

1508 GOSUE 910: PRINT: PRINT 

1510 PR I NT " VOU GOT " ..■ NR J " R I CHT 

1520 PR I NT "CUT OF";NP;" PROBLEMS 

1530 P=NR/NP*100: 

1535 PRINT 

1 540 PR I NT " THAT ■' S " ; P ; " PERCENT CORRECT " : RETURN 
RERDV, 



EASY CHANGES 

1. The program currently does twenty problems per session, 
you can change this number by altering the variable NP in 
line 170. For example, 

170 NP=12 

will cause the program to do only twelve problems per ses- 
sion. The value of NP should be kept a positive multiple of 
four. 
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2. Zero is currently allowed as a possible problem operand. If 
you do not wish to allow this, change lines 940 and 950 to 
read as follows: 

940 H = 9:L=1:RETURN 
950 H = 99:L = 1 :RETURN 



MAIN ROUTINES 

150- 180 Initializes constants. 

200- 330 Asks operator for type of problems desired. 

350- 450 Sets A, B, C arrays, clears screen. 

600- 730 Mainline routine— displays problems, gets opera- 
tor's answers, displays correct answers and user's 
performance. 

800- 870 Subroutine to get and display user's answers. 
900 Subroutine to poke byte P into screen position X, Y. 

910- 915 Subroutine to clear screen and display title. 
920- 935 Subroutine to set B,C arrays. 
940- 960 Subroutine to set L,H. 

1000-1030 Subroutine to calculate array A from arrays B, C. 
1100-1170 Subroutine to display problems. 
1200-1210 Subroutine to move cursor to screen position X,Y. 
1300-1310 Subroutine to move cursor CO lines down and CL 
spaces left. 

1400-1440 Subroutine to display the correct answers. 
1500-1540 Subroutine to display operator's performance. 



MAIN VARIABLES 



NP Number of problems to do in the session. 

ND Number of problems done. 

NR Number of correct answers given. 

C,B,A Arrays of top operand, bottom operand, and cor- 
rect answer to each problem. 

N Operator's answer to current problem. 

G Array of operator's answers. 

T Type of problems requested (1 = addition, 2 = sub- 

traction, 3 = multiplication). 

D Kind of problem requested (1 = easy, 2 = medium, 

3 = hard). 
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H,L Highest, lowest integers to allow as problem 
operands. 

M Answer column being worked on. 

R$ Operator's input character. 

V Value of R$. 

A ASCII value of R$. 

X,Y Horizontal, vertical screen position of cursor. 

S Starting address of CRT memory area. 

R Work variable. 

J,K Loop indices. 

P Poke character, also percentage correct. 

CU.CL Number of positions to move cursor up, left. 



SUGGESTED PROJECTS 

1 . Keep track of problems missed and repeat them quickly for 
additional practice. 

2. No negative operands or answers are currently allowed. Re- 
write the problem generation routines and the operator's 
answer routines to allow the possibility of negative answers. 

3. The answers are now restricted to three-digit numbers. 
However, the program will work fine for four-digit numbers 
if the operands of the problems are allowed to be large 
enough. Dig into the routines at lines 350-450 and 940-960. 
See how they work and then modify them to allow possible 
four-digit answers. 

4. The operator cannot currently correct any mistakes he 
makes while typing in his answers. Modify the program to 
allow him to do so. 

5. Modify the program to allow problems in division. 



FLASHCARD 



PURPOSE 

There are certain things that the human mind is capable of 
learning only through repetition. Not many people can remem- 
ber the multiplication tables after their first exposure, for exam- 
ple. The same applies to learning the vocabulary of a foreign 
language, the capital cities of the fifty states, or famous dates in 
history. The best way to learn them is to simply review them over 
and over until you have them memorized. 

A common technique for doing this involves the use of flash- 
cards. You write one half of the two related pieces of informa- 
tion on one side of a card, and the other half on the other side. 
After creating a set of these cards, you can drill yourself on them 
over and over until you always remember what's on the other 
side of each card. 

But why waste precious natural resources by using cards? Use 
your computer instead. This program lets you create flashcards, 
drill using them, and save them on cassette tape for later review. 

HOW TO USE IT 

The program gives you seven options. The first time you run 
it, you'll want to enter new flashcards, so you should reply with 
number 1. 

To create the cards, the program asks you for each side of 
each flashcard, one at a time. First enter side one of the first 
card, and so on. As you enter the data, be careful not to use any 
commas or colons unless the entire expression is enclosed in 
quotation marks. 
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At any time, you can enter the keyword "*BACK" instead of 
side one to correct an erroneous entry. This causes the program 
to back up and ask you for the previous card again. 

As the program is currently written, you must enter at least 
five flashcards, and no more than twenty-five. We will show you 
how to change these limits in the "Easy Changes" section. 

When you have entered all the flashcards you want, enter 
"*END" instead of side one of the next card. This puts the pro- 
gram back into "command" mode to ask you what to do next. If 
you want to quiz yourself on the cards you just entered, respond 
with the number 4. 

The program flashes one side of one card on the screen for 
you. Both are chosen at random— the side and the card. Your 
job is to respond with the other side. If you enter it correctly, the 
program says "RIGHT!" If not, it tells you the correct response. 
In either event, the program continues by picking another side 
and card at random. This continues until you respond with 
"*END", which tells the program you do not want to drill any 
more. It will then tell you how many you got right out of the 
number you attempted, as well as the percentage, and then 
return to command mode. 

During the drill sequence, by the way, the program will not 
repeat a card that was used in the previous two questions (i.e., 
one less than the minimum number of cards you can enter). 

To save a set of flashcards on cassette, use option number 3. 
The program will tell you to put the cassette into position and 
then enter a name for the file. You should give it a good descrip- 
tive name in order to remember what kind of flashcards they are 
in the future. Be sure to write the name on the cassette, too. 
After the flashcards have been copied to the cassette, the pro- 
gram will say "DONE" and return to the command mode. 

The other commands are easily understood, so we will just ex- 
plain them briefly. A little experimentation will show you how 
they work. 

Command number 2 is used to load a flashcard tape that has 
been previously saved. The program asks for the name of the 
file, so it can scan the cassette until it fmds the one you asked 
for. If you don't care or don't know the name of the file, you can 
load the first file that is found on the cassette by entering a null 
string for the name (two consecutive double quote marks). 
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Command number 5 lets you verify that the set of flashcards 
just saved on tape is okay. You do not have to enter the name 
of the file— the same name is used that was used to save the file. 

Command number 6 ends the program. 

Command number 7 allows you to add more flashcards to 
those currently in memory. 

SAMPLE RUN 




The program begins by showing a menu of options. The operator selects 
option 1 to start entering the front and back of the flash cards. 
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The operator responds with *END after he has entered five cards. He 
then selects option 4 to start the drill on the current set. 




The operator gets the first two answers right, but misses the third. The 
program responds by giving the correct answer. 
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The operator ends the drill and the program shows the number and 
percentage of correctly answered questions. The options for continuing 
are displayed and the program waits for the operator's choice. 

PROGRAM LISTING 

REflDV. 



100 rem: FLFlSHCRRD 

] 10 REM: COPVRICrHT IS'SS 

ni REN: TOM RUGG.. PHIL FELIiMFlN.. RHU 

112 REM: WESTERN SVSTEM:E; GROUP 

130 L=25:M=5 

140 D I M F"* <; L > .. E* L .. r <■:. m~ i ) 
150 R=RHri';:-Ti;:' 

160 PRIWT CHRit:<147::' 

170 PRINT"**** FLRSHCflRD PROGRAM ****" 

1S0 GOTO 2000 

190 K=l :i..i==0:C=0: PRINT 

200 PRINT "SIDE ONE OF CRRi; .NO. " J K = INPUT F$<K> 

pic-i IF left*<;f*':;k>..4>="*end" then 2S0 

220 IF LEFT* < F* < K ) . 5 ><> " *BflCK " THEN 230 

222 K=K~-l:IF l«l THEN K=l 

225 PR I NT: PR I NT" BROKING UP": GOTO 200 

?:-:;0 PRINT"SIDE TWO" = INPUT B*a<> 

240 IF LEFT*<B*<K> , 5>»"#BHCK" THEN £25 

250 PRINT 
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260 K=K>1 : IF K:<=L then 200 

270 PRIWT"THRT-'S RLL THERE 'S ROOM FOR. " 

2Se PR I NT : PR I NT : K=K- 1 : COTO 2000 

290 IF K>=H THEN 310 

300 PRINT"THRT''S ONLV" ; K; "CRRDS. MINIMUM IS";M 
305 GOTO 2000 

310 PRINT: PR I NT "TELL ME WHRT''S ON THE" 

320 PR I NT "OTHER SIDE OF EACH CARD RS I SHOW IT. " 

330 PRINT 

340 R= I NT <: K-*RND <; 1 > > + 1 
350 FOR J=0 TO M-2 
360 IF P'.'J)=R THEN 340 
370 NEXT 

350 J~RNDa>:IF J>.5 THEN 420 
400 PR INT F* C R 'I : C*=E* < R > 
410 GOTO 430 
420 PR I NT BS: R > : C*=F* (. R > 
430 INPUT R* 

440 IF LEFT*(:R$.4) = "*EHD" THEN 600 
450 PRINT 

468 IF R.t~C.-$ THEN 500 

470 PR I NT "NO.. THE CORRECT RESPONSE IS" 

480 PRINT C:* 

490 W=W+1 :CCTO 520 

500 PRINT "RIGHT! " 

510 C=C+1 

520 FOR J«l TO M--2 

530 P < J- 1 > =P <. J : NEXT 

54© P(:M-2';'wR 

550 PRINT 

560 GOTO 340 

600 GOSUE 1500 

610 GOTO 2000 

700 IF l«l THEN 1800 

7 1 PR I NT : PR I NT " PUT CRSSETTE I NTO POS I T I ON . " : PR I NT 

720 INPUT"NRME FOR FILE"jR* 

730 OPEN 7 .. 1 .. 1 .. R* 

740 FOR J=l TO K 

750 PR I NT#7 , F* •:; J > : PR I NT#7 , B*: <. J ') 

770 NE^a' 

780 CLOSE 7 

790 PR I NT : PR I NT " DONE " 

800 N*=R* 

810 GOTO 2000 

900 print: PRINT "REPOSITION xflPE RHERD OF FI' F" 
910 PR I NT "THEN PRESS RNV KEV. " 
920 GET R*:IF R$="" THEN 920 
930 OPEN 7.. 1.0, N$ 
940 E=0:F0R J=1 to K 

950 INPUT#7.R*: IF 64 RNB ST THEN IPi.'-^R 
960 INPUT#7,T$ 
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965 PRINT R*.; "-".;T* 

970 IF 64 mt ST THEN lOee 

980 IF Rf-OFf-CJ) OR Tf<>B*<j;' THEN E=l 

990 NEXT 

1000 CLOSE 7 

1010 PRINT :PRINT"IiCHE" 

1020 IF E--0 THEN PRINT"C. K- " : GOTO 2080 

1030 PR I NT "NO GOOD": GOTO 2088 

1150 INPUT "NAME OF TRPE FILE"JN* 

1170 PRINT: PR I NT "PUT tRPE INTO POSITION" 

1180 PR I NT "THEN PRESS RNV KEV. " 

1190 GET R*-IF R*="" THEN 1198 

1200 OPEN 7. l..e.N* 

1210 K~l :W=0:C=0 

1220 INPUT#7,. Rif 

1230 IF S4 RNB ST THEN 1290 

1240 INPUT#7,Tf 

1250 PRINT R*.; "~";Tf 

1270 F*<K>«R*:B*<K>«=T* 

12S0 K=K+1 : IF THEN 1220 

1 290 l<=K- 1 : PR I NT : PR I NT " LORBEr " ; K ; " CARDS " 

1300 CLOSE 7 

1310 PRINT -GOTO 2008 

1500 PRINT 

1585 IF C+W==e THEN RETURN 

1510 PRINT C J "RIGHT OUT OF";C+W 

1520 PRINT -PRINT C*100/<C+W) ; "PER CENT" 

1539 PRINT 

1540 RETURN 

1800 PRINT: PR I NT "NO CRRDS VET" 
1S10 GOTO 2000 

2000 PR I NT : PR I NT " OPT I Oh-IS- - " : PR I NT 

2010 PRINT" 1 — ENTER NEW FLflSHCRRDS" 

2020 PRINT" 2 — LORD fl FLRSHCflRD TRPE" 

2030 PRINT" 3 — SRVE CURRENT SET -ON TRPE" 

2040 PRINT" 4 — DRILL ON CURRENT SET" 

2050 PRINT" 5 — VERIFY FLRSHCRRDS ON TRPE 

2060 PRINT" 6 — END PROGRRM" 

2065 PRINT" 7 — ADD TO CURRENT CRRDS" 

2070 PRINT: INPUT R* 

20S0 IF R*="l" THEN 198 

2090 IF Rt-="2" THEN 1150 

2100 IF R$~"2." THEN 700 

2110 IF R5r-="4" THEN 290 

2120 IF R$="5" THEN 968 

2130 IF R*="6" THEN END 

2135 IF R*»="7" THEN 260 

2 1 40 PR I NT " I LLEGRL " : GOTO 2088 



RERDV. 
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EASY CHANGES 

1 . Change the limits of the number of flashcards that can be 
entered by altering line 130. L is the upper limit and M is the 
minimum. Do not make M much larger than about ten or 
so, or you will slow down the program and use more mem- 
ory than you might want. 

2. If you want to use some keywords other than "*END" and 
"*BACK", substitute whatever you like in lines 210, 220, 
240 and 440. Be sure you use expressions that are the 
same length as these two, however. If not, you will also 
need to change the last number just before each occurrence 
of the expression to correspond with the length. 

3. To cause the program to always display side one of the 
flashcards (and ask you to respond with side two), insert this 
line: 

380 GOTO 400 
To cause it to always display side two, insert this: 
380 GOTO 420 

4. To eliminate the "echoing" on the screen of a tape file being 
loaded, remove line 1250. To do the same for a tape being 
verified, remove line 965. 



MAIN ROUTINES 

130- 180 Initializes variables. Creates arrays. Displays title 
and options. 

190- 280 Accepts flashcards entered by operator. 

290- 610 Drills operator on flashcards in memory. 

700- 810 Saves flashcards on cassette file. 

900-1030 Verifies that flashcards on tape are the same as 

those in memory. 
1150-1310 Loads flashcards from cassette file into memory. 
1500-1540 Subroutine to display number right and attempted 
during drill. 

1800-1810 Displays error message if operator tries to save 
flashcards on cassette before any are entered. 

2000-2140 Displays options and analyzes response. Branches 
to appropriate routine. 
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MAIN VARIABLES 



L 


Upper limit of number of flashcards that can be 




entered. 


M 


Minimum number of flashcards that can be 




entered. 


R 


Subscript of random flashcard chosen during drill. 


K 


Number of flashcards entered. 


W 


Number of wrong responses. 


C 


Number of correct responses. 


F$ 


Array containing front side of flashcards (side 1). 


B$ 


Array containing back side of flashcards (side 2). 


P 


Array containing subscripts of M - 1 previous 




flashcards during drill. 


J 


Loop and subscript variable. 


C$ 


The correct response during drill. 


R$ 


Response from operator. Also temporary string 




variable. 


N$ 


Name of cassette file. 


E 


Error flag— set to 1 if error occurs on cassette. 


T$ 


Temporary string variable. 



SUGGESTED PROJECTS 

1. Modify the program for use in a classroom environment. 
You might want to allow only command 2 to be used (to 
load a cassette tape), and then immediately go into "drill" 
mode for some fixed number of questions (maybe 20 or 50). 
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HAMCODE 



PURPOSE 

At some time in your life you have undoubtedly heard the 
sound of "Morse Code." The familiar sound of dots and dashes 
is one that we have nearly all come in contact with at some time 
or other. Amateur radio operators ("hams") have to learn Morse 
code to obtain a license to operate an amateur radio station. 

This program helps teach you what is officially called Con- 
tinental Code, or sometimes referred to (ambiguously) as the In- 
ternational Morse Code, as used for ham radio. This is a little 
confusing, since the so-called International Morse Code, 
although similar, is not the same as Morse Code, which is still in 
use only for some types of land line transmissions. The code that 
nearly everyone uses anymore is Continental Code, so we picked 
the name HAMCODE for this chapter to try to be most descrip- 
tive of its use. 

HOW TO USE IT 

The program begins by displaying its title and sounding it in 
code for you. It then shows you five options to choose from. To 
learn the code, you will be selecting different options to enable 
you to learn each character and become proficient at under- 
standing groups of characters. 

The first option teaches you each character. All you do is 
press any key on the computer's keyboard, and the program 
sounds the code of that character for you. As the code is 
sounded, the dots and dashes for it are displayed to help you 
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both visualize and hear the code together. Be sure you have the 
sound on your TV set at a comfortable volume for hearing the 
code. 

It's up to you to decide which characters you want to learn 
first. Most people will find it easiest to learn only a few each day 
(maybe three or four), and drill on them until they can be recog- 
nized immediately. Then add a few more characters the next 
day. Start with the alphabet, then move on to the numbers and 
punctuation characters. Keeping each session short is a good 
idea— half an hour is about right. Doing two or three short ses- 
sions each day is better than doing one long one. 

Some keys on the computer keyboard do not have a code 
assigned to them. If you press one of the "illegal" keys, a distinc- 
tive low beep is sounded to let you know. To end the character- 
learning option, press the CLR/HOME key. This causes the five 
options to be displayed for you again. 

After you have learned a few letters of the alphabet, you may 
want to try listening to groups of letters (words or phrases). This 
is done with option two. Simply enter one or more characters 
and press the RETURN key. The program will respond by 
sounding the code of the entire phrase at a rate of about 12 
words per minute (five characters comprise an average word). 
The Easy Changes section shows how to change the speed, either 
faster or slower. 

If the phrase has multiple words, they are separated by light 
blue blocks on the color video display. As the program is cur- 
rently written, you should limit the length of your phrases to no 
more than 40 characters. If you want to include any colons or 
commas in the phrase, you have to enclose the phrase in quota- 
tion marks. To hear a phrase a second time, simply press 
RETURN and it will be repeated. 

To end option two, enter the word END as your phrase. Once 
again, this causes the five options to be displayed. 

Once you have learned all the characters, you should try op- 
tion three to quiz yourself on them. Option three randomly picks 
a character, sounds it for you, and waits for you to press the key 
of that character. There is no need to press the RETURN key. If 
you press the right key, the program tells you so and picks 
another random character. 

If you press the wrong key, the program tells you what 
character it was and then sounds it for you again. You have to 
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respond with the right answer before the program will pick a 
new character. This helps reinforce the correct answers. To end 
option three, press the CLR/HOME key. 

Option four quizzes you on groups of characters which have 
been chosen at random. As currently written, groups of five 
characters are used, but the Easy Changes section shows how to 
make the program use other lengths. 

After the five characters are sounded, enter the corresponding 
five characters and press the RETURN key. As with option 
three, the program tells you if you were right or wrong. If 
wrong, it tells you the correct answer and sounds the same 
characters for you again to make you enter them correctly. As 
with option two, if there are any colons or commas included in 
the group of characters, you must enclose the entire group of 
characters within quotation marks. And again, if you simply 
press the RETURN key, the phrase will be repeated for you. 

The last option, option five, ends the program. 

A few characters are not included in this program; these will 
have to be learned through other means. In all cases but two, 
this is because there are no ASCII characters on the keyboard to 
correspond with them (e.g., wait, double dash, error). The two 
exceptions are the quotation mark and the right parenthesis. 

As mentioned above, quotation marks are used by BASIC to 
enclose a string of characters being entered by the operator. 
Since this would make it very awkward to include the quotation 
mark character in the program, and because the other characters 
are more important to learn, it has been omitted. 

The right and left parenthesis are both supposed to use the 
same code. To avoid ambiguity in having you figure out whether 
the program was asking for the left or right parenthesis during 
the quiz options, we simply decided to treat the right one as an il- 
legal character and thereby allow you to always respond with the 
left one. 

Please be very careful when entering this program into your 
computer, especially for lines 3010 through 3130. If you make a 
mistake in typing the dots, dashes, commas, and X's, the pro- 
gram either will not work (Out of Data error, most likely), or 
you will teach yourself the wrong code! Be sure that you com- 
pare your results against the Sample Run photos to be sure that 
your codes look the same as ours. 
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SAMPLE RUN 




The program displays its title (both alphabetically and in code) and 
displays its options. The operator picks the first option and begins learn- 
ing the vowels. 




The operator proceeds to option 2, and begins by drilling on some com- 
mon short words. 
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Next the operator tries option 3, to be quizzed on individual characters. 
The first response is correct, but the next is not. The program repeats it 
to force the operator to respond correctly before going on to the next 
character. 




Finally, the operator asks for option 4, to test himself on random five 
character groups. After a mistake in his response for the first group, he 
replies correctly when it is repeated. 
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PROGRAM LISTING 

REFIDV. 



100 rem: hfim code 

110 rem: copyright 13s3 

111 rem: tom rijgg.. phil feldmhh.. rhd 

112 rem: western SVSTEMS GROUP 
115 POKE 54296.15: REM :3ET VOLUME 
120 GOTO 2000 

130 W = flSC<R*>-39: IF W < OR W > 51 THEN 220 
140 T* C-S-<My-lF T-$ >"/" THEH £28 
150 FOR J = 1 TO LEH<T*>:W* = MlDsT-CT*. J. 1 > 
160 D = 220 :LE = 220 

165 IF W$ = "." THEH D = 10e:LE = 100 
170 PRINT Wf-; 

180 POKE 54277. 12S: POKE 54278.11 

182 POKE 54273. HI : POKE 54272. LO 

184 POKE 54276.17 

190 FOR D = 1 TO LE:NEXT 

192 POKE 54277.0: POKE 5427S.3 

194 POKE 54273.0: POKE 54272.0 

196 POKE 54276.8 

200 NEXT: FOR J = 1 TO 60*T : NEXT 

210 PRINT" "; : RETURN 

250 FOR K = 1 TO LEN^P*:? : R* = Mirj*'::P$. K. 1 > 
260 IF I=ISC<R$> = 32 THEH 286 
270 GOSUB 130: NEXT: RETURN 

230 PRINT CHR*a393::'.; : FOR J = 1 TO 90 : NEXT 

290 NEXT : PR I NT : RETURN 

300 PR I NT "PRESS R KEV TO HERR" 

310 GET R-$:IF R$ = "" THEN 310 

320 W = flSC'::R*>:iF W = 19 THEN 2108 

330 IF W < 39 OR W > 90 THEN 350 

340 IF C*<:W-39;' <> "X" THEN 360 

350 GOSUB 2500: REM ERROR 

355 GOTO 310 

360 PRINT R*.;:G0SUB 130:GOTO 318 
400 PRINT :PRINT"EHTER PHRRSE" 
410 INPUT PiJ: 

420 IF LENvP*) « THEN P* « L* 
430 IF P$ = "END" THEN 2100 
440 OCSUB 250 = L« « P* 
450 GOTO 400 
500 GOSUB 909 
510 GOSUE 910 

520 PRINT"WHnT CHflRRCTER IS THIS ?" 
540 GOSUE 130 

550 GET Tf-:IF T$ = "" THEN 550 
560 IF flSC^T*;' = 19 THEN 2100 
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570 IF flSCCT*:-' = 13 THEH 54S 
580 F'RIHT T$:IF T* = R$ THEN £29 
5S5 GOSUB 2500 

590 pf;:iwt"ho.. it wrs ".;r* 

600 priht"trv it flgrin. " ^ print 

610 GOTO 510 

620 PRIKT"RieHT ! " : GOTO 560 

700 PRIKT"WHPT -S THIS ?" 

710 P* " " ■ FOR J = 1 TO N 

720 GOSJiJE 920 

730 P* = P* + Rf : NEXT 

740 GOSUB £'20:CnsUB 250: PRINT 

750 INPUT Tif- IF T* = "" THEN 740 

760 IF T$ = "END" THEN 2100 

770 IF T* = P* THEN PRIHT"RIGHT ! " : GOTO 700 

775 GOSUB 2500 

730 PR I NT "NO IT WRS " ; P$ 

730 PRINT "LISTEN RGRIN. " 

S00 GOTO 740 

300 R = INT<RNE(;i)*52> 1 

905 IF C*''R;' = "X" THEN 300 

310 R$ = CHR*<R+3S;' - RETURN 

920 FOR J = 1 TO S00: NEXT: RETURN 

350 END 

20Gi0 CLR 

2010 DIM C*':;51> 

2020 FOR J = TO 51: READ C$(j;':NEXT 

2030 T = 5:HI = 34:L0 = 75 

2050 PRINT CHR*a47>:P$ = "HflM CODE" 

2060 PRINT TRBa2;';P*: PRINT 

2070 GOSUB 250 

20S0 N " 5:L* ~ CHR$<32) 

2100 PRINT 

2110 PRINT: PRINT"** OPTIONS **" 
2120 PRINT" 1 LERRN CHRRRCTERS" 
2130 PR I NT "2 LERRN PHF;RSES" 
2140 PR I NT "3 SINGLE CHRRRCTER QUIZ" 
2150 PR I NT "4 MULT I -CHRRRCTER QUIZ" 
2160 PR I NT ■'5 END" 
2130 PR I NT "ENTER 1-5" 
2200 PRINT 

£210 GET R*:IF Rt- = "" THEN 2210 

2220 R = RNDC TO 

2230 R == VflL'::R*> : IF R < 1 OR R > 5 THEN 2130 

2240 ON R GOTO 300.. 400.. 500.. -^00.. 350 

2500 POKE 54277.. 128: POKE 5427S.. 12S 

2510 POKE 54273.. 48: POKE 54272.. 127 

2520 POKE 54276. 17 

2530 FOR E = 1 TO 25©: NEXT £ 

2540 POKE 54277.0: POKE 54278.. 
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RERHV. 







EASY CHANGES 

1. To change the speed of the codes or the pitch at which they 
are sounded, change line 2030. T is the speed (time factor) 
and HI and LO are the note. Change T to 1 to make the 
speed about 19 or 20 words per minute, the top speed. 
Change T to 10 for about eight words per minute. Changing 
the speed only changes the length of time between letters and 
words, not the speed of dots and dashes or the short time in- 
terval between them. Currently the note is low C. Consult 
the Commodore 64 User's Guide (Appendix M) for other 
note values. For example, to get a higher pitched sound 
(Middle C) with the fastest speed, make this change: 

2030 HI = 17:LO = 37:T=l 

2. Change the number of characters in the multi-character quiz 
(option 4) by changing the value of N in line 2080. 

3. Many experts stress that code is a language of sound, not 
sight, and should be learned that way. If you like, you can 
eliminate the displaying of dots and dashes on the screen by 
deleting line 170 and changing these lines: 

210 RETURN 

280 FOR J = 1 TO 90:NEXT 

4. Eliminate the sounding of "HAM CODE" at the start of the 
program by deleting line 2070. 
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5. To drill on only alphabetic characters during options three 
and four, make this change: 

900 R = INT(RND(1)*26) - 1 

6 . A short delay is built into the program at several points. To 
lengthen it, replace the 800 in line 920 with 2000. To 
eliminate the delay, replace the 800 with 1 . 



MAIN ROUTINES 

130- 220 Subroutine to sound and display character R$. 

250- 290 Subroutine to sound and display phrase P$. 

300- 360 Teaches characters by echoing keys until 

CLR/HOME is pressed. 
400- 450 Teaches phrases by echoing entries until END is 

entered. 

500- 620 Quizzes individual characters until CLR/HOME is 
pressed. 

700- 800 Quizzes random N character phrases until END is 
entered. 

900- 910 Subroutine to pick random character R$. 
920 Delay subroutine. 

2000-2030 Initializes variables. Stores codes in C$ array. 
2050-2080 Displays and sounds title. Initializes more variables. 
2100-2240 Displays options. Gets response. Initializes RND. 

Goes to option entered. 
2500-2560 Sounds error code when a mistake is made. The 

sound is F# in the 5th octave. 
3010-3130 DATA statements with codes for ASCII 39 

(apostrophe) through 90 (Z). X value is illegal code. 

A through Z are in 3080 through 3130. 



MAIN VARIABLES 



w 


Work variable and subscript. 


R$ 


Character to be sounded; work character. 


T$ 


Work string. 


C$ 


Array of code strings. 


J,K 


Loop and work variables. 


W$ 


Element (dot or dash) of code to be sounded. 


D 


Duration of sound to be made (dot= 1, dash = 3). 




Also loop variable. 
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T Time factor to alter pauses between characters and 

words. 

P$ Phrase of characters to be sounded. 

L$ Last phrase entered. 

N Number of characters in multi-character quiz. 

R Random number for character selection; work 

variable. 

HI.LO Values of note to be sounded. 



SUGGESTED PROJECTS 

1. Add another option to randomly quiz the operator on a 
series of common words and/or phrases that have been 
stored in DATA statements. 

2. Program some "intelligence" into the learning phase of the 
program. Have the program teach 3 or 4 common letters un- 
til the operator has mastered them, then begin teaching 3 or 
4 more, etc. 

3. Determine how to interface your Commodore 64 with 
amateur radio equipment so you can use the program to ac- 
tually send code automatically under program control. 

4. Now try the reverse of Project 3 — have the computer figure 
out how to decode a transmission that has been received 
over the radio, converting it into text. This will almost un- 
doubtedly require some or all of the program to be in 
assembler language in order to run fast enough to handle 
this job in real time. 



METRIC 



PURPOSE 

In case you don't realize it, we live in a metric world. The 
United States is one of the last holdouts, but that is changing 
rapidly. So if you're still inching along or watching those 
pounds, it's time to convert. 

METRIC is an instructional program designed to familiarize 
you with the metric system. It operates in a quiz format; the pro- 
gram randomly forms questions from its data resources. You £ire 
then asked to compare two quantities— one in our old English 
units and one in the corresponding metric units. When you are 
wrong, the exact conversion and the rule governing it are given. 

The two quantities to compare are usually within 50% of each 
other. Thus, you are constantly comparing an "English" quan- 
tity and a metric one which are in the same ball park. This has 
the effect of providing you some insight by sheer familiarity with 
the questions. 

HOW TO USE IT 

The program first asks how many questions you would like to 
do for the session. Any value of one or higher is acceptable. 

The sample run shows how each question is formulated. A 
quantity in English units is compared with one in metric units. 
Either one may appear first in the question. Each quantity will 
have an integral value. The relating word ("longer," "hotter," 
"heavier," etc.) indicates what type of quantities are being 
compared. 
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There are three possible replies to each question. Pressing Y or 
N means that you think the answer is yes or no, respectively. 
Pressing any other key indicates that you have no idea as to the 
correct answer. 

If you answer the question correctly, you will be duly con- 
gratulated and the program will proceed to the next question. A 
wrong answer or a response of "no idea," however, will generate 
some diagnostic information. The first value used in the ques- 
tion will be shown converted to its exact equivalent in the corre- 
sponding units. Also, the rule governing the situation will be dis- 
played. At the end of any question, the program will request that 
you hit any key to proceed to the next question. 

The program will continue generating the requested number 
of questions. Before ending, it will show you how many correct 
answers you gave and your percentage correct. 



SAMPLE RUN 




The operator requests a three question quiz. 
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The first question is correctly answered "no". The program waits for a key 
to be pressed before continuing the quiz. 




Later, the third question is incorrectly answered "no". The correct con- 
version and governing rule are then displayed. 
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The program shows the number and percentage of correctly answered 
questions. 

PROGRAM USTING 

REFlDV. 



100 REM: METRIC 

110 REM: COPYRIGHT 13&3 

111 REM: PHIL FELDMFIN.. TOM RUGG.. RHD 

112 rem: western SYSTEMS GROUP 
1S0 CLR 

1 50 li I M ES* ■:: 30 > .. MS* •: 30 > ,. R$ ■:: 30 ::■ 
155 DIM C'::30>..EP$';30>..MP*C30::' 
160 Q=RHEK--Ti::' :E$=" " 
2m G0;3IJE 48e:G0:3UB 458 

210 INPUT "HOW MHNV QUE:3TI0H:5 SHRLL WE DO".: HQ 

215 HQ==IHT?:NQ> : IF NG<1 THEN 218 

220 FOR J==l TO HQ:G0SUE 600 : G0:E;UE 980 : NEXT 

230 GOSUE 458:PRIHT"V0U GOT" .: NR.: "RIGHT OUT OF".; 

£35 PRINT NQ,; "QUESTIONS" : PRINT 

240 P=100*NR,-'NQ:PRIHT"PERCENTRGE CORRECT =";P 

250 END 

408 RESTORE : HD=0 

410 HD=Hri+l :REflD ES*a'^D> .. MS*a-lIi> .. R$'::Nj:i::. 
4 1 5 RERD C <■:. ND > EP* ND > . MP* < ND > 
420 IF ES$<AW><y"KXX" THEN 418 
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430 ND=ND-1 :RETIJRI-J 

459 PRINT CHR3:a47>.;TfiE<ll>; "R METRIC QUIZ" 
455 print: print: RETURN 
6@a N= I NT < ND*-RND U > > + 1 

610 F==0:IF RHD';i>>0.5 THEN F=l 

620 V 1 --^ I NT RHD C 1 } *99 > +2 : V3=V 1 *C < N > 

625 IF F=l THEN V3=V1/C';N> 

630 IF N==l THEN V3=<:Vl-32;'/l . :3 

635 IF F=l THEN V3=(V:I.*1 . 3>+32 

640 V2= V3* <. , 5+RND < 1 > > : V2= I NT < V2+8 . 5 > 

645 T=9:IF V£<V3 THEN T--:l. 

650 GCSUB 450 : PR I NT " QUEST I ON J; " OF " .; NQ : PRINT 
660 IF F=0 THEN PRINT" IS" ; VI .: EP*<N> J EiT.; R^CN) .; 
665 IF F=l THEN PRINT" IS" Vl MPa^O-J) .; B*; R^tN!) ; 
667 PRINT " THRH" 

67'0 IF F=0 THEN PRINT 3$.: Ef.: V2; MP'^^N) ; 
675 IF F=l THEN PRINT B*.: B*; V2; EP^^N) ; 
677 PRINT " ?" 

688 GET a*: IF Q*="" THEN 630 

780 IF Qt-="V" THEN PRINT : PRINT" VOU SflV 'VES''"; 

705 IF 13*=" V" THEN Rs=l:GOTO 738 

710 IF Q*="N" THEN PRINT : PRINT" VOU SflV 'NO'".: 

715 IF Qi?="N" THEN R=e : GOTO 738 

720 PRINT: PRINT "VOU hRVE NO IDEfl":R=2 

730 X=T-R:IF R=2 THEN GOSUB 880 : GOTO 760 

740 IF X=0 THEN PRINT 

742 IF K=0 THEN PRINT " RNE VOU 'RE RIGHT -".; 

744 IF X=0 THEN PRINT " VERV GOOD ! " : NR=NR-i-l 

745 IF X=8 THEN GOTO 768 

750 PRINT" BUT VOU 'RE WRONG": GOSUB 808 
760 RETURN 

800 PR I NT : PR I NT " " : PR I NT 

810 IF F=0 THEN PRINT VI ; EP*';N> ; 

815 IF F=0 THEN PRINT " EQURLS" : PRINT V3;MP*a-J> 

820 IF F=l THEN PRINT VI .; MP3:<N> J 

825 IF F=l THEN PRINT " EQURLS" : PRINT V3;EP*'r.N> 

830 PRINT: PR I NT" THE RULE 13 ": PRINT 

840 IF N=l RNB F=0 THEN GOSUE SS0 : RETURN 
350 IF N=l RNB F=l THEN GC&IB SiiJS: RETURN 
860 IF r=0 THEN GCSUB 890: RETURN 
870 Q=INTa. .E5/C(;N>>/1.E5:PRINT" 1 ";MS*<N>; 
875 PRINT" EQURLS" : PRINT Q; EP* ';>•!::•: RETURN 
SSe PRINT" liECC = a)EC.F ■- 32;:'/l „ 8" : RETURN 
885 PRINT" DEG.F = (iBEG.C * 1.8> + 32":RETURN 

390 PRINT" 1 ";es*<:n>;" equals" 

895 PR I NT C < N > ; MP^: < N > : RETURN 
908 PR I NT: PR I NT 

985 PRINT"*** HIT RNV KEV TO CONTINUE **•*" 
910 GET Q*:IF G*="" THEN 918 
920 RETURN 

1000 DRTR DEGREE FAHRENHEIT. DEGREE CENTIGRRBE 
1005 DRTR HOTTER.. 0.5 
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1010 Enn-I DEGREES FRHREMHE IT.. DEGREES SEWTIGRaCE 
1020 DRTfl HILE PER KILOMETER PER l-IOUR 

1S25 ERTR ERSTER,. l.eeS'SS 

1038 ERTR MILES PER I-ICUR.. KILCMETERS PER HOUR 
1 043 DflTR FOOT .. METER .. LONGER . 3348 
1650 IiRTR EEET.. METERS 

1 060 DRTR M I LE .. K I LGMETER .. LSKGER .. 1 . SSS'33 

1078 DRTR MILES.. KILOMETERS 

1 880 DRTR : HCH .. CENT I METER .. LGKGER 2 . 54 

1090 DRTR INCHES.. CENTIMETERS 

1 1 80 DRTR GRLLON . L I TRE .. MORE .. 3 , 7S533 

1118 DRTR GALLONS.. LITRES 

1120 DRTfl POUND. KILOGRaM..HERVIER..S. 45353 

1130 DRTR POUNDS.. K I LOGRRMS 

1 953 DRTR KXX .. XXX .. XXX .. 3 . XXX .. XXX 



RERBV. 

EASY CHANGES 

1. To have the program always ask a fixed number of ques- 
tions, change line 210 to set NQ to the desired value. For 
example: 

210 NQ=10 

will cause the program to do 10 questions. 

2. There are currently seven conversions built into the 
program: 



N 


Type 


English Unit 


Metric Unit 


1 


temperature 


degrees F. 


degrees C. 


2 


speed 


miles/hour 


kilometers/hour 


3 


length 


feet 


meters 


4 


length 


miles 


kilometers 


5 


length 


inches 


centimeters 


6 


volume 


gallons 


litres 


7 


weight 


pounds 


kilograms 



If you wish to be quizzed on only one type of question, set N 
to this value by changing line 600. Thus, 

600 N = 4 



will cause the program to only produce questions comparing 
miles and kilometers. To add additional data to the pro- 
gram, see the first "Suggested Project." 
3. You can easily have the questions posed in one "direction" 
only. To go only from English to metric units change line 
610 to 

610 F = 
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while to go from metric to English units use 
610 F=l 

4. You might want the converted value and governing rule to 
be displayed even when the correct answer is given. This is 
accomplished by changing lines 740 through 746 to read as 
follows: 

740 IF X = 0, THEN PRINT: PRINT" AND YOU'RE 

RIGHT -VERY GOOD!" 
746 IF X = THEN NR = NR + 1 : GOSUB 800: GOTO 760 



MAIN ROUTINES 


150- 


160 


Dimensions and initializes variables. 


200- 


250 


Mainline routine, drives other routines. 


400- 


430 


Reads and initializes data. 


450- 


455 


Displays header. 


600- 


760 


Forms and asks questions. Processes user's reply. 


800- 


895 


Displays exact conversion and governing rule. 


900- 


920 


Waits for user to hit any key. 


1000-1999 


Data statements. 



MAIN VARIABLES 


ND 


Number of conversions in the data. 


ES$,EP$ 


String arrays of English units' names (singular, 




plural). 


MS$,MP$ 


String arrays of metric units' names (singular. 




plural). 


R$ 


String array of the relation descriptors. 


C 


Array of the conversion factors. 


Q 


Work variable. 


B$ 


String constant of one blank character. 


J 


Current question number. 


NR 


Number of questions answered right. 


P 


Percentage answered right. 


NQ 


Number of questions in session. 


N 


Index number of current question in the data list. 


F 


Flag on question "direction" (0 = English to metric; 




1 = metric to English). 


VI, V2 


Numeric values on left, right sides of the question. 


V3 


The correct value of the right hand side. 



I 
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T 



Flag on the question's correct answer (l=true; 

= false). 

User reply string. 

User reply flag (0 = no; 1 = yes; 2 = no idea). 
User's result (0 if correct answer was given). 



Q$ 



R 
X 



SUGGESTED PROJECTS 

1 . Each built-in conversion requires six elements of data in this 
order: 

Element Data Description 

1 English unit (singular) 

2 Metric unit (singular) 

3 Relation descriptor (e.g., "hotter," "faster," etc.) 

4 Conversion factor (from English to metric) 

5 English unit (plural) 

6 Metric unit (plural) 

Each of these elements, except the fourth, is a string. The 
data statements in the listing should make clear how the in- 
formation is to be provided. You can add new data to the 
program with appropriate data statements in this format. 
New data should be added after the current data, i.e. just 
before line 1999. Line 1999 is a special data statement to 
trigger the end of all data to the program. The program is 
dimensioned up to thirty entries while only seven are cur- 
rently used. (Note: this format allows only conversions 
where one unit is a direct multiple of the other. 
Temperature, which does not fit this rule, is handled as a 
special case throughout the program.) 

2. Convert the program to handle units conversion questions 
of any type. 

3. Keep track of the questions asked and which ones were 
missed. Then do not ask the same questions too soon if they 
have been answered correctly. However, do re-ask those 
questions missed for additional practice. 



NUMBERS 



PURPOSE 

This is an educational program for pre-school children. After 
a few weeks of watching Sesame Street on television, most three 
and four year old children will learn how to count from one to 
ten. The NUMBERS program allows these children to practice 
their numbers and have fun at the same time. 

HOW TO USE IT 

We know a child who learned how to type LOAD and RUN to 
get this program started before she turned three, but you'll prob- 
ably have to help your child with this for a while. The program 
asks the question, "WHAT NUMBER COMES AFTER n?", 
where n is a number from one to eight. Even if the child can't 
read yet, he or she will soon learn to look for the number at the 
end of the line. The child should respond with the appropriate 
number, and then press the RETURN key. 

If the answer is correct, the program displays the message 
"THAT'S RIGHT!", pauses for a couple of seconds, and then 
clears the screen and displays three geometric shapes. In the up- 
per left of the screen a square is drawn. In the lower center, a 
triangle is drawn. Then an asterisk (or a snowflake, perhaps?) is 
drawn in the upper right portion of the screen. After a few sec- 
onds delay, the program clears the screen and asks another ques- 
tion. The same number is never asked twice in a row. The size of 
the three figures is chosen at random each time. If the child pro- 
vides the wrong answer, a message indicates the error and the 
same question is asked again. 
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The program keeps on going until you hit the RUN/STOP 
key. Remember that most children have a pretty short atten- 
tion span, so please do not force your child to continue after 
his or her interest diminishes. Keep each session short and fun. 
This way, it will always be a treat to "play" with the computer. 



SAMPLE RUN 




The program asks what number comes after 4, and waits for a response. 
The operator says 5, and the program acknowledges that the answer is 
correct. 
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Because of the correct response, the program draws three geometric 
figures. 



PROGRAM LISTING 



190 rem: numbers 

110 rem; copyright 1903 

111 rem: TOM RUOe. PHIL FELCMRN.. flNE 

112 rem: western svstems group 

120 M=S' 

130 S=1024 : E=10 : TS=12 : CC=552£iS 
1 40 R=RKK C -T I > : PR I NT CKR* < 1 47 > 
150 PRINT: PRINT 

1 60 PR I NT TRE 1 ,: CHR# a S ; J " NUMBERS " 
170 R»INT<M*RND< 1 > > + l = IF R=P THEN 170 
100 PRINT: PRINT 

196 PR I NT "WHAT NUMBER CCMES RFTER".;R 

200 INPUT R* 

213 PRINT; PRINT 

220 IF Vf-iL'::R$>=R+l THEN 368 

238 PR I NT "NO.. THflT'-S NOT IT,, TRV RGRIN. " 

240 GOTO ISe 
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300 PR r NT " THl-iT 'SRI CKT ! " 
310 FOR X=l TO 1000: NEXT 

320 P=R:C= 102: POKE 33281 .. 1 : PRINT CI-IR*C147>; 
325 POKE 53280.. 1 : POKE 53201. .0 
•338 E=INT';:8*RNEa::'>+3 
335 CI = INTERN!!':: i;'*14M-l 
430 V=l:FOR X=l TO E : GOSUB 388: NEXT 
485 CI = INT';RKri'.'.l>Hil4>-!-l 
410 X=E:F0R v=i tC E:003U3 988 : NEXT 
415 CI = INT<:RNDa>*14)"i-i 

420 V=E:F0R X=E TO 1 STEr -1: GOSUB 308 ^ NEXT 
425 CI = INT'::RNrn:i>*14>-M 

430 X»l:FCR V«E TO 1 STEP -1= GOSUB S'00 : NEXT 

435 CI « INT<RND<:1>*14> + 1 

450 C=77:F0R ■T==l TO E 

4S0 V=TS-i-J:X=V:OOCUB SCO : NEXT 

463 CI = INT'::RNr!a>*i4> + l 

470 C=7S:FCR J=1 to E 

480 V=TS+J:X=TS~J+l : GOSUB 906 : NEXT 

490 C=99:V=TS+E+1 :F0R X=TS-E-i-l TC TS+E 

495 Ci = :NT<RN3>::1>*14;h-1 

500 GOSUB 908: NEXT 

520 fl=2S : 3= 1 : C= I NT < 7*RNr! a ? > +86 

538 FOR .J=l TO E 

540 X=FI+.J: V~E+J:eOSUE 988 

550 V=S-J: GOSUB 908 

560 V=E;COSUB 900 

570 X=R: GOSUB 900 

580 V=B+.:r : GCSU3 966 

590 V=E--.J : OOSUB 90© 

600 X=l=l-.J : GOSUB 900 

610 V:=E: GOSUB 900 

620 V=E-i-.J : GOEiUB 980 

630 ne;«:t' 

800 FOR .J=l TO 3886: NEXT .J 

813 POKE 532S1.. 1 : PRINT CHR*<147>; 

SI 5 POKE 532S0. 14:P0KE 53281.6 

820 COTO 178 

300 POKE S+40*V+X..C 

905 POKE CO+40*V+X.C1 

916 RETURN 

RERBV. 



EASY CHANGES 

1. Change the range of numbers that the program asks by 
altering the value of M in line 120. For a beginner, use a 
value of 3 for M instead of 8. Later, increase the value of M 
to S, and then 8. 
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2. Alter the delay after "THAT'S RIGHT!" is displayed by al- 
tering the value of 1000 in statement 310. Double it to dou- 
ble the time delay, etc. The same can be done with the 2000 
in line 800 to alter the delay after the figures are drawn. 

3. To avoid randomness in the size of the figures that are 
drawn, replace line 330 with 

330E=10 

Instead of 10, you can use any integer from 2 to 11. 

4. To slowly increase the size of the figures from small to large 
as correct answers are given (and the reverse for incorrect 
answers), do the following: 

a. Replace the 10 in line 130 with a 2. 

b. Insert this line: 

225 E = E-3: IF E<2 THEN E = 2 

c. Replace line 330 with the following: 

330 E = E + 2: IFE>11 THEN E =11 

MAIN ROUTINES 



120-160 Initializes variables. Clears screen. 
170 Picks random integer from 1 to M. 

180-240 Asks question. Gets answer. Determines if right or 
wrong. 

310 Delays about 2 seconds. 

320-430 Draws a square. 

450-500 Draws a triangle. 

520-630 Draws an asterisk. 

800 Delays about 4 seconds. 

810-820 Clears screen. Goes back to ask next question. 

900-910 Subroutine to POKE graphics character C to X,Y 
coordinate on screen. POKEs color to correspon- 
ding location on color map. 

MAIN VARIABLES 

M Maximum number that will be asked. 

E Edge length of geometric figures. 

R Random integer in range from 1 to M. 

P Previous number that was asked. 

R$ Reply given by operator. 
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SUGGESTED PROJECTS 

1 . Modify the program to ask the next letter of the alphabet. 
Use the ASC and CHR$ functions in picking a random letter 
from A to Y, and to check whether the response is correct 
or not. 

2. Ask each number from 1 to M once (in a random sequence). 
At the end of the sequence, repeat those that were missed. 

3. Add different shapes to the graphics display that is done 
after a correct answer. Try an octagon, a diamond, and a 
rectangle. Or, combine this program with one of the graph- 
ics display programs. 



X,Y 
TS 
A,B 
J 

C 

CO 

CI 

S 



Coordinates in CRT display. 
Triangle's starting location (top). 
X,Y coordinate values. 
Subscript variable. 
Graphics character to be POKEd. 
Starting location of color map. 
Color for current graphics character. 
Starting address of CRT screen. 



TACHIST 



PURPOSE 

This program turns your computer into a tachistoscope (tah- 
KlSS-tah-scope). A tachistoscope is used in reading classes to 
improve reading habits and, as a result, improve reading speed. 
The program displays a word or phrase on the screen for a frac- 
tion of a second, then asks you what it was. With a little prac- 
tice, you will find that you can read phrases that are displayed 
for shorter and shorter time periods. 

HOW TO USE IT 

The program starts off by displaying a brief introduction and 
waiting for you to press any key (except the RUN/STOP key or 
SHIFT keys, of course). After you press a key, the screen is 
blanked out except for two horizontal dash lines in the upper 
left-hand corner. After two and a half seconds, the phrase is 
flashed on the screen between the two lines. Then the screen is 
blanked again, and you are asked what the phrase was. 

If you respond correctly, the next phrase is displayed for a 
shorter time period (half as long). If you respond incorrectly, the 
program shows you the correct phrase, and the next phrase is 
displayed for a longer period of time (twice as long). 

The fastest the computer can display a phrase and erase it is 
about .02 seconds (one-fiftieth). See if you can reach the top 
speed and still continue to read the phrases correctly. 

A great deal of research has been done to determine how peo- 
ple read and what they should do to read both faster and with 
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better comprehension. We will not try to explain it all (see the 
bibliography), but a couple of things are worth mentioning. 

To read fast, you should not read one word at a time. Instead, 
you should learn to quickly read an entire phrase at once. By 
looking at a point in the center of the phrase (and slightly above 
it), your eyes can see the whole phrase without the necessity of 
scanning it from left to right, word by word. Because the 
tachistoscope flashes an entire phrase on the screen at once, it 
forces you to look at a single point and absorb the whole phrase, 
rather than scanning left to right, word by word. 

If you can incorporate this technique into your reading and in- 
crease the width of the phrases you absorb, your reading speed 
can increase dramatically. 

SAMPLE RUN 




The program displays an introduction, then waits. 
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The program flashes a short phrase (chosen at random) between the two 
lines for a fraction of a second, then clears the screen. 
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The program asks what the phrase was. The operator responds cor- 
rectly. The program acknowledges the correct response, and indicates 
that the next phrase will be shown for half as long. 



PROGRAM LISTING 

REFIDV, 

100 REH: THCHIST 

110 rem: COPVRIGHT 1983 

111 rem: TOM RUGG.. PHIL. F-ELDMFlH. RNH 

112 rem: western SYSTEMS GROUP 
120 T=. 1 

130 J=T.*60:B=147 

140 L=50 

150 DIM T*<L> 

160 C=0 

178 READ R$- 

180 IF R*="KXX" THEN 250 
190 C=C+1 

200 IP OL THEN PRINT "TOO MHNV DRTFl STATEMENT:";" 
205 IF OL THEN END 
210 T*'::C)=R$ 
220 GOTO l?i3 
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250 R=RHD<-TI> 
266 PRINT CHR*CB> 

270 PR I HT " **** TRCH I STOSCOPE ■ **** " 
280 PRINT 

290 PRINT"THIS PROGRflM IS DESIGNED TO" 
380 PRINT" IMPROVE VOUR RERDING SPEED." 
310 PRINT 

320 PRINT" I --LL BRIEFLY DISPLRV 1=1 SHORT" 
330 PRINT"PHRRSE. RND 't'CU TRV TO REHD IT,," 
340 PRINT 

350 PR I NT "TYPE WHPT VOU SEE.. AND I'LL TELL" 
360 PRINT"V01J IF VOU WERE RIGHT." 
370 PRINT 

380 PRINT"WE-"LL ST)=IRT BT" T; "SECONES. " 

400 FOR K=l TO 5 -GET R$ : NEXT : PRINT 

410 PR I NT "PRESS RNV KEV WHEN VOU 'RE REFlL'V. " 

420 GET R$:IF R$="" THEN 420 

430 R=INT(;C*RND<:i;>> + l 

440 IF R=P1 OR R=P2 OR R=P3 THEN 430 

450 IF R=P4 OR R=P5 THEN 430 

460 PRINT CHRilr^B? :GOSUE 840 

465 FOR K=l TO 1500: NEXT k-IF J<2 THEN S00 

470 PR I NT: PR I NT: PR I NT t*<:R> 

480 S=TI 

490 IF TI-3<J THEN 490 

500 PRINT CHR*';E> 

505 FOR K=l TO 500: NEXT i< 

510 PR I NT : PR I NT : PR I NT : PRINT 

52© PR I NT "WHAT WflS IT?" 

530 INPUT R$ 

540 PRINT 

550 IF R*<>T$<R> THEN 700 
560 PRINT" THRT'S RIGHT!" 
570 J=J-3 

580 IF J<1.2 THEN .J==1.2 
590 PRINT 

600 P1=P2 : P2~P3 : P3=P4 : P4.-=P5 : P5=R : PRINT 
610 PR I NT "THE NEXT ONE WILL BE DISPLRVED" 
620 PR I NT " FOR " ; J,--'60 i " SECONDS . " 
630 PRINT 
640 GOTO 400 

708 PR I NT "NO.. THRT'S NOT IT. IT WRS" 
7 1 PR I NT : PR I NT ; T* < R ) " ■' " 
720 J=J+3 

730 IF INT<J/3K>J/3 THEN J^S^INTC J/3> 
740 GOTO 590 

800 PR I NT : PR I NT : PR I NT T* < R > .; CHR* < 1 47 
810 GOTO 505 

840 PRINT" ": PRINT 

850 PR I NT : PR I NT : PR I NT " " 



118 More than 32 BASIC Programs for the Commodore 64 Computer 



860 PRINT CHRil;:<l£?:) 
S70 RETURN 

910 IinTR"fiT THE TIME" 
920 ERTR"THE BROWN COW" 
930 DBTR"1_00K RT THRT" 
940 DfiTFl'MH THE HCUSE" 
950 IiRTR"TH:S is MINE" 
9Se IiRTa"SHE SRII! SO" 
370 DflTR"THE EREV CRIED" 
980 DRTfV'TO THE STORE" 
990 DRTri"REni!lNC IS FUN" 

i.eee ertr"he goes erst" 

1010 BRTfV'IN RLL THINGS" 
1020 DRTR" GREEN GRASS" 
1030 IiRTR"TWO BIRDS FLV" 
1040 rRTn"LRTE LRST NIGHT" 
1050 I)RTR"TKEV RRE HOME" 
1060 DRTR "ON THE PHONE" 
1070 DRTR "THROUGH R DOOR" 
1080 DRTR "WE CRN TRV" 
1090 DRTR"MV FOOT HURTS" 
1100 aRTR"HRPPV NEW VERR" 
3399 DRTR XXX 

RERDV. 



EASY CHANGES 

1. Change the phrases that are displayed by changing the 
DATA statements that start at line 910. Add more and/or 
replace those shown with your own phrases or words. Line 
140 must specify a number that is at least as large as the 
number of DATA statements. So, to allow for up to 100 
DATA statements, change line 140 to say 

140 L=100 

Be sure to enter your DATA statements in the same form 
shown in the program listing. To begin with, you may want 
to start off with shorter phrases or single words. Later, try 
longer phrases. Do not alter line 9999, which has to be the 
last DATA statement. Be sure to have at least 6 DATA 
statements. 

2. To change the length of time the first phrase is displayed, 
change the value of T in line 120. Use a multiple of .05 
seconds or make it .02 (the fastest speed). 
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3. To cause all phrases to be displayed for the same length of 
time, remove lines 570 and 720. 

4. If you want to change the waiting period before the phrase is 
flashed on the screen, change the 1500 in line 465. To make 
the delay five seconds, change it to 3000. To make it one sec- 
ond, change it to 600. 

5. To put the program into a sort of flashcard mode, in which 
the phrases are flashed, but no replies are necessary, insert 
these three lines: 

515 GOTO 710 
715 GOTO 590 

This will cause each phrase to be flashed (all for the same 
length of time), and then displayed again so you can verify 
what it was. 



MAIN ROUTINES 

120- 150 Initializes variables. 

160- 220 Reads DATA statements into T$ array. 

260- 380 Displays introduction. 

400- 420 Waits for operator to press a key. 

430- 450 Picks random phrase from T$ array. Ensures no 

duplication from previous five phrases. 
460- 465 Clears screen and displays horizontal lines. 
470- 500 Displays phrase for appropriate length of time. 
505- 530 Asks what the phrase was. 
550 Determines if typed phrase matches the phrase 

displayed. 

560- 640 Shortens time for next phrase if reply was correct. 

Saves subscript to avoid repetition. Goes back to 

wait for key to be pressed. 
700- 740 Shows what phrase was. Lengthens time for next 

phrase. Ensures that time period is a multiple of .05 

seconds. 

800- 810 Special routine to display phrase for shortest time 
(.02 seconds). 

840- 870 Subroutine to display horizontal dash lines. 
910-9999 DATA statements with phrases to be displayed. 
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MAIN VARIABLES 



S Starting time of display of phrase (in intervals). 

T Time that phrase will be displayed. 

J Loop variable and time interval counter. 

L Limit of number of phrases. 

T$ Array of phrases (read into from DATA 
statements). 

C Count of number of phrases actually read. 

R$ Temporary string variable. Also, reply of operator. 

R Work variable. Also, subscript of phrase to be 
displayed. 

P1,P2, Subscripts of the five previous phrases. 
P3,P4,P5 

K Temporary work variable. 

B ASCII number for clear screen character. 



SUGGESTED PROJECTS 

1. Instead of picking phrases at random, go through the list 
once sequentially. 

2. Instead of only verifying that the current phrase does not 
duplicate any of the previous four phrases, modify the pro- 
gram to avoid duplication of the previous ten or more. 
Changes will be needed to lines 440, 450, and 600. 

3. Keep score of the number of correct and incorrect replies, 
and display the percentage each time. Alternatively, come 
up with a rating based on the percentage correct and the 
speed attained, possibly in conjunction with a difficulty fac- 
tor for the phrases used. 

4. Add the capability to the program to also have a mode in 
which it can display a two to seven digit number, chosen at 
random. Have the operator try several of the numbers first 
(maybe five-digit ones) before trying the phrases. The 
phrases will seem easy after doing the numbers. 
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PURPOSE 

Did you ever find yourself at a loss for words? Well, this vo- 
cabulary quiz can be used in a self-teaching environment or as 
reinforcement for classroom instruction to improve your ability 
to remember the jargon of any subject. It allows you to drill at 
your own pace, without the worry of ridicule from other stu- 
dents or judgment by an instructor. When you make mistakes, 
only the computer knows, and it's not telling anyone except you. 
Modifying the program to substitute a different vocabulary Ust 
is very simple, so you can accumulate many different versions of 
this program, each with a different set of words. 

HOW TO USE IT 

This program is pretty much self-explanatory from the sample 
run. After you enter "RUN," it asks you how many questions 
you would Uke. If you respond with less than five, it will still do 
five. Otherwise, it will do the number you enter. 

Next, you get a series of multiple choice questions. Each ques- 
tion is formatted in one of two ways— either you are given a 
word and asked to select from a list of definitions, or you are 
given a definition and asked to select from a list of words. The 
format is chosen at random. You respond with the number of 
the choice you think is correct. If you are right, you are told so. 
If not, you are shown the correct answer. From the second 
answer on, you are shown a status report of the number correct 
out of the number attempted so far. 
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Finally, after the last question, you are shown the percentage 
you got correct, along with a comment on your performance. 
Then you have the option of going back for another round of 
questions or stopping. 

SAMPLE RUN 




The program displays an introduction and asks the first question. The 
operator selects choice 2. 
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or SOKE USEFUL VOCABULABV HORDS. 
HOU IWNV QUESTIONS SHALL HE DO? 18 



1 -- WtAT DOES UIUACIOUS HEAD? 

1 THREATENIN6 OR HEHACING 

2 LIUELV OR SPIRITED 

3 STIN6V OR FRUGAL 

4 ALL-KH0HIN6 

5 or UMKHOMM OR HIDDEN ORIGIN 

? 2 
RIGHT! 



HHAT DOES GREGARIOUS MEAN? 

1 SOCIAL OR COnPANV-LOUIMG 

2 STINGV OR FRUGAL 

3 FEARLESS OR COURAGEOUS 

4 OF UHKNOUH OR HIDDEN ORIGIN 

5 ICALTHV 



The program responds that the first answer was correct, and asks the 
next question. 




At the end of ten questions, the program gives a final score and asks 
about trying again. 
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PROGRAM LISTING 

REl=lDV. 



100 rem: vocre 

lie rem: COPVRIGHT 19S3 

111 rem: TOM RUOG.. PHIL FELDMHH.. RND 

112 REM: WESTERN SYSTEMS GROUP 
300 GOSUE 1000 

400 GOSUE 2000 
500 GOSUB 3000 
600 GOSUB 4000 
700 GOSUE 5000 
800 GOSUB 6000 
900 IF E=0 TI-IEH 500 
910 GOTO 300 
990 REM 

1000 IF E--:>0 THEN 1060 
1010 PRINT CHR3:<147> 

1020 PRINT"**** VOCflBULPRV QUIZ ****" 
1030 PRINT 

1040 PR I NT "THIS PROGRAM WILL TEST VOUR KNOWLEDGE 
1050 PR I NT "OF SOME USEFUL VOCFlBULflRV WORDS." 
1060 PRINT 

1.u0 input "how mt-n questions shrll we do".;l 
1120 l=int(;l> 

1130 IF L>4 THEN 1145 

1135 PRINT"THRT'S NOT ENOUGH. LET'S DO 5." 
1140 L=5 

1145 IF EO0 THEN 1200 
1150 PRINT 
1160 R=RND<~TI> 

1200 RETURN 

2000 IF EO0 THEN 2200 
2010 C:-~5 
2020 D'=26 

2030 DIM d*';b>.e$<d:> 

£040 DIM P<C> 

2050 J=l 

2060 RERD D*'::J> 

2070 IF D*'::j:-' = "XXX" then 2140 

2090 REfiD Ef-itlJ) 

2100 J=J+1 

2110. IF J<=D THEN 2060 

2120 PR I NT "TOO MflNV DRTR STRTEMENTS. " 

2130 PRINT"ONLV FIRST" ; D.: "RRE USED,." 

2140 D=J-1 

2200 Q=l 

2210 E=0 



VOCAB 



125 



2220 Q1=0 

2300 RETURN 

3000 FOR J=l TO C 

3010 P<J>«0 

3020 NEXT J 

30313 FOR J==l TO C 

3040 P=INT'::i:i*RNDa>> + l 

3045 IF P=P1 OR P=P2 OR F=P3 THEN 304S 

3050 FOR i<=l TO J 

3060 IF P<:k:)=P THEN 3040 

30~'0 NEXT' K 

30S0 FCj;'=P 

3030 NEXT J 

3 1 :l. R:= 1 NT < C*RND a > > + 1 

3200 RETURN 

4000 PRINT 

4010 M=RNr!a::' 

4020 IF M>„5 THEN 4180 

4030 PRINT Q,; " WHAT WORD MEfiNS " 

4035 PR I NT TRE < 5 > E* < P C fi ) > J " ? " 

4040 FOR J=l TO C 

4050 PRINT TflB<5>.;J;" " J D^KPC J> > 

40iS0 NEXT J 

4070 GOTO 4200 

4100 PRINT WHRT DOES " im':P<.P\:0 r' MERN?" 

4110 FOR J==l TO C 

4 1 20 PR I NT TRE ■:: 5 > ; J ; " " ; E* P J > > 

4130 NEXT J 

4200 PRINT 

4210 RETURN 

5000 II-iPUT R 

5010 R=INT<R> 

5020 IF R>=1 RND R<=C THEN 5040 

5030 PRINT" I NEED fl NUMEER FROM 1 TO";C 

5035 GOTO 5000 

5040 PRINT 

5050 IF R=fl THEN 5100 

5060 PR I NT "NO.. THE RNSWER IS HUriEER".;R 
5070 GOTO 5200 
5100 PRINT"RIOHT! " 
5110 Q1=Q1+1 
5200 PRINT 

5210 IF Q=l THEN 5300 

5220 PR I NT " VOU HAVE " ; Q 1 .: 

5225 PRINT "RIGHT OUT OF" .; Q J "QUESTIONS. " 

5230 PRINT 

5300 P3=P2 

5310 P2=P1 

5320 Pl«P<fl> 

5330 RETURN 
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6000 Q=Q+1 

6010 IF Q<=L THEM RETURN 
6020 E=l 

6039 Q= I NT < Q 1 * 1 08/ G- 1 > i) 

6040 IF Q>0 THEN 6070 

6950 PR I NT "WELL.. THRT'S R -PERFECT'' SCORE..." 
6060 GOTO 6200 

607'0 PR I NT " THRT -■ S " .; Q ; " PERCENT . " 
60S9 IF Q>25 THEN SI 10 

60510 pRiHT"CONGRflTULRTI0HS CN RVOIHilNG fl SHUTOUT." 

6100 GOTO 6200 

6110 IF G;>50 THEN 614© 

6120 PRIHT"VOU CRN USE SOME MORE F'RRCTICE. " 

6130 GOTO 6200 

6140 IF Q>75 THEN 6179 

615:3 FRINT"HOT BRE. BUT ROOM FOR IMPROVEMENT," 

6160 GOTO 6280 

6170 PRIHT"VERV CCCD ; " 

6180 IF G>Si5 THEN PRINT" VCU' RE RLM03T RS".; 
6185 IF Q>Si5 THEN PRINT" SMRRT RS I RM i " 
6200 PRINT 

6219 INPUT"URNT TO TRV RGRIN".;R* 

6220 IF LEFT*'::R*.. 1:><:>"N" THEN 6239 

6225 PR I NT : PR I NT " CHECK VOU LATER . " : PR I NT 
6223 END 

6230 IF LEFT* (R*. . 1 ;:•==" V" THEN 6256 
6240 GOTO 6213 
6250 RETURN 

7000 rem: on line 2020.. tj must ee rt 

7002 rem: lerst one orerter tkrn the 

■"'004 rem: number of difrerent words. 

7010 trtr rncnvmous.. "of unknown or hi been origin" 

7020 drtr ominous. "threatening or menrcing" 

7930 drtr affluent. werlthv 

7049 drtr rprthet i c. " indifferent or uninterested" 

7050 drtr lrconic..terse 

7069 drtr intrepid.. "fearless or courageous" 

7070 drtr gregrrious.. "socirl or ccmprnv-loving" 
7080 drtr enervrted.. "weak or exhausted" 

7090 drtr venerable 

7035 data "worthv of respect or reverence" 
7100 drtr disprrrte. "different and distinct" 
7110 drtr vivrcious.. "lively or spirited" 
7120 drtr astute.. "keen in .judgment" 

7130 DRTR URSIHE..EERRLIK-:E 

7140 DRTR PARSIMONIOUS.. "ST I NOV OR FRUGAL" 

7159 DRTR OMNISCIENT. "RLL--KNOW I NG" 

7393 DRTR XXX 



RERDV. 
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EASY CHANGES 

1. Add more DATA statements between lines 7010 and 7999, 
or replace them all with your own. Be careful not to use two 
or more words with very similar definitions; the program 
might select more than one of them as possible answers to 
the same question. Note that each DATA statement first has 
the vocabulary word, then a comma, and then the deflnition 
or synonym. Be sure there are no commas or colons in the 
definition (unless you enclose the definition in quotes). If 
you add more DATA statements, you have to increase the 
value of D in line 2020 to be at least one greater than the 
number of words. The number of DATA statements you can 
have depends on how long each one is and how much user 
memory your computer has. Be sure to leave statement 7999 
as it is — it signals that there are no more DATA statements. 

2. To get something other than five choices for each question, 
change the value of C in line 2010. You might want only 
three or four choices per question. 

3. If you do not want the choice of how many questions, 
remove lines 1110 through 1130. Line 1140 establishes the 
number of questions. Change it to the number you would 
hke. 

4. To make the program pause longer after a wrong answer, 
insert: 

5065 FOR J = 1 TO 5000: NEXT 



MAIN ROUTINES 

300- 910 Mainline routine. Calls major subroutines. 

1000-1200 Displays introduction. Initializes RND function. 
Displays number of questions to be asked. 

2000-2300 Reads vocabulary words and definitions into ar- 
rays. Performs housekeeping. 

3000-3200 Selects choices for answers and determines which 
will be the correct one. 

4000-4210 Determines in which format the question will be 
asked. Asks it. 

5000-5330 Accepts answer from operator. Determines if right 
or wrong. Keeps score. Saves subscripts of last three 
correct answers. 
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6000-6250 Gives Hnal score. Asks about doing it again. 
7010-7999 DATA statements with vocabulary words and 

definitions. 
MAIN VARIABLES 



E Set to 1 to avoid repeating introduction after the 

first round. 

L Limit of number of questions to ask. 

R Work variable. Also used for operator's reply to 

each question. 

C Number of choices of answers given for each 

question. 

D At least one greater than number of DATA state- 

ments. Used to DIM arrays. 
D$ Array of vocabulary words. 

E$ Array of definitions. 

P Array for numbers of possible answers to each 

question. 

J Work variable (subscript for FOR-NEXT loops). 

Q Number of questions asked so far (later used to cal- 

culate percent correct). 
Ql Number of questions correct so far. 

P Work variable. 

P1,P2,P3 Last three correct answers. 
A Subscript of correct answer in P array. 

M Work variable to decide which way to ask question. 

R$ Yes or no reply about doing another round. 



SUGGESTED PROJECTS 

1 . Modify lines 6030 through 6200 to display the final evalua- 
tion messages based on a finer breakdown of the percent 
correct. For example, show one message if 100 percent, 
another if 95 to 99, another if 90 to 94, etc. 

2. Ask the operator's name in the introduction routine, and 
personalize some of the messages with his/her name. 

3. Instead of just checking about the last three questions, be 
sure that the next question has not been asked in the last 
eight or ten questions. (Check lines 3045 and 5300 through 
5320.) 

4. Keep track of which questions the operator misses. Then, 
after going through the number of questions he/she re- 
quested, repeat those that were missed. 



Section 3 
Game Programs 



INTRODUCTION TO GAME PROGRAMS 

Almost everyone likes to play games. Computer games are a 
fun and entertaining use of your Commodore 64. Besides pro- 
viding relaxation and recreation, they have some built-in prac- 
tical bonuses. They often force you to think strategically, plan 
ahead, or at least be orderly in your thought processes. They are 
also a good way to help some friends over their possible "com- 
puter phobia." We present a collection of games to fit any game 
playing mood. 

Maybe you desire a challenging all-skill game? Like chess or 
checkers, WARI involves no luck and considerable thinking. 
The computer will be your opponent, and a formidable one 
indeed. 

Perhaps you're in the mood for a game with quick action and 
mounting excitement. GROAN is a fast-paced dice game involv- 
ing mostly luck with a dash of skill (or intuition) thrown in. The 
Commodore 64 is ready to take you on anytime. 

Two word games are included. In JOT, you and the computer 
each pick secret words and then try to home in on each other's 
selection. In ARGO, you are challenged to make words by un- 
scrambling letters in a race against time. 

Do you like solving puzzles? If so, try DECODE. The compu- 
ter will choose a secret code and then challenge you to find it. 

Graphic electronic arcade games are a prevalent landmark of 
our times. We include two such games. ROADRACE puts you 
behind the wheel of a high speed race car. You must steer ac- 
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curately to stay on course. OBSTACLE lets you and a friend 
compete in a game of cut and thrust. Each of you must avoid 
crossing the path laid by the other, and by yourself! 



ARGO 



PURPOSE 

Argo is a word game that is both challenging and a lot of fun. 
The program displays 13 random letters, and your object is to 
try to score as many points as possible by creating words from 
them. 

HOW TO USE IT 

The program begins by displaying its name and asking you to 
press a key to start the game. After you press a key (other than 
SHIFT or RUN/STOP, of course), the program displays 13 let- 
ters in alphabetical order and starts its "timer." When the timer 
in the upper left corner reaches 5000, the game is over. 

Your object is to create words that are at least three, but no 
more than seven letters long. You can enter as many as six words 
of each length, but only the first five will score points. This is to 
give you a chance to enter an extra word of some length in case 
you mis-typed a word or entered a word that is later disallowed. 

Each word is entered by simply typing the letters of the word 
and pressing the RETURN key. As each letter of the word is 
typed, it is displayed at the top of the screen. When RETURN is 
pressed, the word is moved to the lower part of the screen, where 
a column of words is displayed for each length. The three letter 
words are at the left of the screen, and the seven letter words are 
at the right. 

If a typing error is made before pressing RETURN, you can 
simply correct it as usual by using the "back arrow" key. If you 
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do not see the error until after you pressed RETURN, there is no 
way to erase the erroneous word. 

The program displays an error message to the right of your 
word if you enter a duplicate word or if you try to enter a word 
that is not made up of the letters shown. Of course, you can only 
use a letter the number of times it is shown— to use a letter twice, 
there need to be two of them. 

The program has no way of knowing whether or not you are 
entering legitimate words. It only checks that you are using the 
proper letters. It's up to you to determine if you want to allow 
slang, proper names, foreign words, etc. If you are going to 
compete with a friend, be sure you establish the ground rules 
first. 

At the end of your time limit, the program displays the score 
and ends. Scoring is based on how many words you entered of 
each length. Each word counts the square of its word length in 
points. So, each three letter word counts nine points. Each four 
letter word is 16 points, a five letter word is 25 points, a six letter 
word is 36 points, and a seven letter word is 49 points. This 
means that the maximum possible score is 

5x(9+I6 + 25 + 36 + 49) = 675. 
In our experience, however, any score over 200 is very good, and 
"anything over 300 is excellent. Needless to say, the scores vary 
widely based on what letters you happen to get. 

The program gives you a fair chance by making sure that you 
have at least two vowels among your 13 letters. Other than that, 
the letters are simply chosen at random. 
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SAMPLE RUN 




The program waits for the operator to press a key to start the game. 




The program selects 13 random letters and starts the timer. 
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The operator enters the first word, which will go in the column of five 
letter words when RETURN is pressed. 




The timer reaches 5000 to end the game, causing the score to be 
displayed. Note that a typing error was made (CIW), so the operator 
entered an extra three letter word. This caused the scoring of five words 
of three letters to be correct. 
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PROGRAM LISTING 

REflDV , 



100 REM: BRCO 

110 rem: COPVRIGHT 

111 rem: TOM RUGO.. PKIL FELDMRM,. RHD 

112 REM: WE:3TERH iSVSTEMS GROUP 
120 R = RHD'::-TI> 

1 40 CLR : PR I NT CHRif: < 1 47 > : N = 1 3 

150 DIM W^C?.. iS>.. fl(:N>.. E<N), VCS) 

160 Va> = 65-V<.2y = 69-W(.3) = ?:3 

165 'v'<4> = 79:V(;5> = S5 

170 DC3> == 160:]3<4> = 1S4:D<5) = 163 

175 DCe) = 175:D(:7::' = 182 

180 GOSUE 6000 

190 GCSUB S8e:PRIH7 CHRi(:a47):C = e:M = 5000 
l:?5 D = 10: GOTO 5813 
200 I..J*="" 

210 GET R$:C = C+1 
215 IF C > M THEN SIO 

220 HU = C:G0:3UE 1800: IF m ■■- "" THEK 210 

£30 IF RSC<fl*:J = 13 THEN 308 

£60 IF RSC'::fl*;' = 157 THEN 1588 

270 IF R* "fi" OR > "Z" THEN 218 

280 U* = U* + Fl*:UO* = W$:WL == E : GOSUD 1208 

235 IF l_EN';W*> > 8 THEN 388 

290 GOTO £10 

300 L = LENCUif) 

310 IF L < 3 OR L > 7 THEN 408 
320 GOSUB 3018 

330 IF F = 1 THEN m "SOPLICFlTE" : GOTO 783 

340 GOSUB 4010: IF F = 1 THEN 488 

350 T'::L> = T'::l::' + 1 

360 IF T<:L> > 6 THEN 583 

370 W$a-.T(L)) = Hi? 

3S0 WO* ■- Wf :WL DCL) : CC3UB 1200 

390 WC* == " ":WL = »: GOSUE 1280 

395 D(l....> = B<L> -!- 40: GOTO £80 

400 M* == "ILLEGAL" :OOTG 7QB 

580 T(L> == Ta_;'-1 :Mif: = "TOO MRNV" 

510 GCTO 700 

708 WC* = m-HL = D+18: GCSUB 1200 

710 FOR J = 1 TO 30 :C = C+1 

728 GCSUB 1080: NEXT 

730 WO* == " " :WL = B+J0 

735 GOSUB 1280 

740 GOTO 260 

310 WO* = "TIME'S UP. " :WL » 480 : GCSUB l?««r 

820 SC = : FOR J = 3 TC 7 

830 l< == Ta>:lF K > 5 THEN K = 5 
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340 SC = SC+ J* J*K: •• NEXT 
850 PRINT "SCORE =".;SC 
855 PRINT 
860 END 

S'00 FOR J = 1 TO H:R = IHT(:RNI!<1>*25>+65 

910 fl(;j> = R:NEXT 

920 FOR J = 1 TO 2 

930 RC.T> = Va.HT(RND(:i>*5>> --NEXT 

940 RETURN 

1 000 PR I NT CHR* ( 1 9 ) : FR I NT NIJ : RETURN 
1200 PRINT CHR*':;i9> 

1285 Xn == INT';WL/40;' : Vfl = INT':;WL-<Xa*40>> 

1210 IF Vl'l Q THEN 1230 

1215 FOR RV = 1 TO VFI 

1220 PRINT CHR*':;29;-'; --NEXT 

1230 IF XH = C THEN 1259 

1240 FOR RX = 1 TO XR 

1 245 PRINT CHR* a 7 > ; : NEXT 

1250 PRINT WO*; 

1260 RETURN 

1500 IF LEN'r.W*> < 2 THEN 730 

1510 m ■■- LEFT*<W$.LENa«>-l> 

1520 WO* = " ":WL = r!:GOSUB 1200 

1530 WO* = W*:WL = D:G0SU3 1200: GOTO £18 

3010 F = 0:IF T •;:!„) = THEN RETURN 

:-i020 FOR J =-- 1 TO T<L';' 

3030 IF W*';L..J> = W* THEN F » 1 

3040 NEXT : RETURN 

4010 F = 0:FOR J = 1 TC N:E':;j;' = R''J> 
4020 NEXT: FOR J = 1 TO L 
4030 K = RSC < M !!:■$■<. W* .. J .. 1 > > 
4040 FOR X = 1 TO H 

4050 IF ECX';' = l< THEN E'r.X> = : GOTO 4070 
4060 HEXT'-F 1 
4070 NEXT J ■•RETURN 

5010 FOR J = N TO 2 STEP -1:X « Ra>:F = 1 

5020 FOR L = 2 TO J'-IF fi<L> > X THEN X = RCL):F=L 

5030 NEXT : R < F > = R < J > : R < J > = X : NEXT 

5050 FOR J a 1 TO N 

5055 WO* = CHRtCR^JJJ :WL = 42+J+J : GOSUB 120© 

5100 NEXT: GOTO 73© 

6000 PRINT TRBa2>;"R R G 0" 

6010 print: PR I NT "PRESS RHV KEV" 

6020 J = I NT RND < 1 > * 1 > + 1 : GET R* 

6030 IF R* = "" THEN 6020 

6040 RETURN 



RERDV. 
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EASY CHANGES 

1 . You can easily change the program to give you more or less 
than 13 letters to choose from. You can use any number 
from three to 17, but more than 15 causes the last ones to ex- 
tend to a second line. Values from nine to 15 are best. As an 
example, make this change to use 15 letters: 

140 CLR:PRINT CHR$(147):N= 15 

2. The program currently guarantees at least two vowels 
among the list of letters. Change the "2" at the end of line 
920 to alter this. For example, to guarantee at least three 
vowels, it should be: 

920 FOR J = 1 TO 3 

3. Give the player more or less time to create words by chang- 
ing the value of M in line 190. For example, to make each 
game last about twice as long, make this change: 

190 GOSUB 900:PRINT CHR$(147):C = 0:M= 10000 



MAIN ROUTINES 

140- 195 Initializes variables, displays title, chooses letters. 

200- 290 Gets word from player. Increments timer while 
waiting. 

300- 510 Examines word for legality. Saves it. 

700- 740 Displays and erases error message. 

810- 860 Computes score and ends program. 

900- 940 Subroutine to select N letters. 

1500-1530 Backspaces during word entry. 

3010-3040 Subroutine to check for duplicate word. 

4010-4070 Subroutine to check that legal letters were used. 

5010-5070 Alphabetizes and displays letters. 

6000-6040 Subroutine to display title and initialize RND. 



MAIN VARIABLES 

N Number of letters to choose from. 

W$ Array that words are saved in. 

A Array holding ASCII values of letters. 

E Array for evaluating whether legal letters were 

used. 
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V 


Arrnv with ASC^H vflliie<i of the vowels 




Arrflv nf srrpen locations of each word lensth 


c 


^^r^iintpr fr*r timpr 


M 


MaximiiTTi value for timer 


D 


Screen location for word being entered. 


W$ 


NVnrH heine entered 


A$ 


Key pressed during word entry. 


L 


I enffth of word entered Also work variable 


p 

J. 


Flae set to 1 if word is ille&al Also work variable. 


M$ 


Error message. 


T 


Array to count the number of words entered of each 




length. 


J,X 


Loop and work variables. 


R 


Random number used in selecting letters. 



SUGGESTED PROJECTS 

1 . Display the score as each word is entered, so the player can 
see the score while the game is in progress. 

2. Allow the player to erase the last word entered, in case of 
typographical error. 



DECODE 



PURPOSE 

Decode is really more of a puzzle than a game, although you 
can still compete with your friends to see who can solve the puz- 
zles the fastest. Each time you play, you are presented with a 
new puzzle to solve. 

The object is to figure out the computer's secret code in as few 
guesses as possible. The program gives you information about 
the accuracy of each of your guesses. By carefully selecting your 
guesses to make use of the information you have, you can deter- 
mine what the secret code must be in a surprisingly small number 
of guesses. Five or six is usually enough. 

The first few times you try, you will probably require quite a 
few more guesses than that, but with practice, you'll discover 
that you can learn a lot more from each guess than you origi- 
nally thought. 

HOW TO USE IT 

The program starts off by displaying a brief introduction. 
Here are some more details. 

The program selects a secret code for you to figure out. The 
code is a four digit number that uses only the digits 1 through 6. 
For example, your Commodore 64 might pick 6153 or 2242 as a 
secret code. 

Your object is to guess the code in the fewest possible guesses. 
After each of your guesses, the program tells you a "black" and a 
"white" number. The black number indicates the number of 
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digits in your guess that were correct— the digit was correct and 
in the correct position. So, if the secret code is 6153 and your 
guess is 4143, you will told that black is 2 (because the 1 and the 
3 will have been correct). Of course, you aren't told which digits 
are correct. That is for you to figure out by making use of the in- 
formation you get from other guesses. 

Each of the white numbers indicates a digit in your guess that 
was correct, but which is in the wrong position. For example, if 
the secret code is 6153 and your guess is 1434, you will be told 
that white is 2. The 1 and 3 are correct, but in wrong positions. 

The white number is determined by ignoring any digits that 
accounted for a black number. Also, a single position in the 
secret code or guess can only account for one black or white 
number. These facts become significant when the secret code 
and/or your guess have dupUcate digits. For example, if the 
code is 1234 and your guess is 4444, there is only one black, and 
no whites. If the code is 2244 and your guess is 4122, there are no 
blacks and three whites. 

This may sound a little tricky, but you will quickly get the 
hang of it. 

At any time during the game, you can ask for a "SUM- 
MARY" by entering an S instead of a guess. This causes the pro- 
gram to clear the screen and display each guess (with the corre- 
sponding result) that has occurred so far. 

Also, if you get tired of trying and want to give up, you can 
enter a Q (for "quit") to end your misery and find out the an- 
swer. Otherwise, you continue guessing until you get the code 
right (four black, zero white), or until you have used up the max- 
imum of twelve guesses. 
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SAMPLE RUN 




The program displays an introduction, chooses its secret code, and asks 
for the operator's first guess. After the operator makes a guess, the pro- 
gram responds with a "black" and a "white" number, and asks for the 
second guess. 




Later in the same game, the operator asks for a summary, then makes 
the guess that turns out to be correct. The program acknowledges that 
the guess is correct and asks about trying another game. 
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PROGRAM LISTING 

RERDV. 



100 rem: decode 

110 rem: COPVRIGHT 1983 

111 REM: TOM RUGG.. PHIL FELDMRN.. RND 

112 REM: UESTERH :E:VSTEM:3 GROUP 
120 D=6:P=4:L=12 

130 DIM g*<:l>..G':p:).c<p>.E'X;'.w<l> 

140 R=RHD':~TI> 

150 GOSUB 1200 

170 GOSUE 300:GOSUE 370 

1 S0 PR I WT " GUE:5;3 NUMBER " ; G ; 

190 INPUT R* 

200 IF LEFT^'T.Rt-. 1) = "S" THEN 500 

210 IF LEFT*(:n$. i:)«"Q" THEN f=;00 

220 GOSUE 700 

230 GOSUE 800 

240 GOSUE 1800 

250 IF E';G>=P then 2000 

260 G*(G::'=fl* 

270 G=C-!-l : IF G>L THEN 2200 

280 GOTO 180 

300 G=l :C*:=="" 

310 RETURN 

370 FOR ..J=:l, TO P 

380 R=iHT(::[;!*RND(i;;'::' + i 

390 =C$+M I D$ STR* < R > .. 2 .. 1 > 
400 NEXT J 

410 PRINT" I ■-VE CHOSEN MV SECRET CODE." 
420 PRINT 
430 RETURN 

500 IF 0=^1 THEN PR I NT "NO GUESSES VET": GOTO is0 
5 10 PR I NT CHR$ C 1 47 , " SUMMRR V " : P'R 1 1-iT 
520 PR I NT" NO » GUESS ELRCK WHITE" 
530 PR I NT: FOR j=3. 70 G~l 

540 PR I NT J .; TRE 7 > .: G$ J ; ; THE U 6 y .: E C J .; TRE 24 > . W <: J 
550 IF G<10 THEN PRINT 
560 NEXT: PRINT 
570 GOTO 180 
600 PRINT 

610 PRINT'-CRN'T TRKE IT.. HUH?" 

620 PRINT :PRINT"WELL.. MV CODE WAS "; 

630 FOR .J==l TO 4 

640 PRINT" , ".: 

650 FOR K=l TO 300: NEXT 

660 NEXT 

670 PRINT C*: PRINT 



DECODE 



143 




GOTO 20S'0 

IF LEN(:R*><>P THEW 7S3 
FOR .J=l TO P 

R=VRLa'iir!$';R$..j.. i>> 

IF R<1 OR R>E THEN 780 

NEXT 

RETURN 



780 PRINT"ILLEGRL. TRV RGRIN. " 

790 GOTO ISO 

800 B*0:W=e 

810 FOR J=l TO P 

820 G < J > = VRL M I < R$ . J , 1 > > 

830 C < J > = VRL < M I Dsr < C* . J .. 1 > > 

840 IF C<. J =C C J > THEN E=B+ 1 : G < J > =g : C C J > =0 

850 NEXT 

860 FOR j=i TO P:IF C<J>=0 THEN 329 

870 H=0:FOR K=l TO P 

880 IF C'::J>=0 then 910 

890 IF C:'::J>;:>G<K> THEN 910 

900 K= 1 : G K > =0 ; C ■'. J > =0 

910 NEKT K:W=W+H 

920 NEXT J 

930 RETURN 

1 000 E (. ::• =B : W C G > =W : PR I NT 

1 010 PRINT" GUESS NO . " ; G " — ELRCK = " ; E 

1015 PRINT" WHITE =";I.'J 

1020 print: RETURN 

1200 PRINT CHR*(:i47>; 

1210 PRINT"***-* DECODE ****" 

1220 PRINT: PRINT 

1230 PR I NT" FIGURE OUT R" .: P.; "POSITION CODE" 
1240 PRINT 

1250 PR I NT "US I KG THE TIG ITS 1 THRU".:D 
12S0 PRINT: PRINT 

1270 PRINT" ■■ BLACK-' INDICRTES R CORRECT DIGIT" 
1 280 PR 1 NT : PR I NT " I N THE R I OHT POS I T I ON . " 
1290 PRINT 

1300 PRINT"- WHITE-- INDICRTES SOME OTHER CORRECT 
1310 PRINT 

1320 PR I NT "DIG IT.. BUT IN THE WRONG POSITION," 
1330 F:'RIKT:PRINT 
1340 RETURN 
2000 PRINT 

20 1 PR I NT " VOU GOT IT I N " ; G " GUESSES . " 

2020 IF G<5 THEN B*="OUTSTRNDING ! " 

2030 IF 0=5 OR G=S THEN B$="PRETTV GOOD" 

2040 IF G=7 THEN E*="NOT ERE" 

2050 IF G=8 THEN E*="NOT TOO GRERT" 

2060 IF G>S THEN E$="PRETTV BRD" 

2070 PR INT: PR I NT "... THRT ' S " .: E* 
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2080 PRINT 

2032 :HPIJT"WRHT to TRV fiGF;IH".;Fl* 
2100 IF LEFT^Cflilr.. 1> = "V" THEN 158 
2110 IF LEFTiFCfi*,. 1><>"H" THEN 
2 1 20 PR I HT : PR I NT " CCWflRIs . " ^ PR I NT 
2130 END 
2200 PRINT 

22 10 PR I HT " THAT ' S VOUR L I M I T OF " .; L ; " GUESSES . " 
2220 PRINT 

2230 print"M't' code WRS ";c* 

2240 GOTO 2080 
RERDV. 



EASY CHANGES 

1 . Modify line 1 20 to change the complexity of the code and/or 
the number of guesses you are allowed. For example, the 
following line would allow fifteen guesses at a five position 
code using the digits 1 through 8: 

120 D = 8:P = 5:L=15 

The introduction will automatically reflect the new values 
for D and P. Be sure that neither D nor P is set greater 
than 9. 

2. To change the program so it will always display the "Sum- 
mary" information after each guess automatically, replace 
line 280 with this: 

280 GOTO 500 

MAIN ROUTINES 

120- 170 Initializes variables. Displays introduction. 
Chooses secret code. 

180- 240 Gets a guess from operator. Analyzes reply. Dis- 
plays result. 

250 Determines if operator guessed correctly. 

260- 280 Saves guess. Adds one to guess counter. Determines 

if limit on number of guesses was exceeded. 
300- 310 Subroutine to initialize variables, choose secret 

code and inform operator. 
500- 570 Subroutine to display summary of guesses so far. 
600- 680 Subroutine to slowly display secret code when 

operator quits. 
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700- 790 Subroutine to determine if operator's guess was 
legal. 

800- 930 Subroutine to determine number of black and white 

responses for the guess. 
1000-1020 Subroutine to display number of black and white 

responses for guess. 
1200-1340 Subroutine to display title and introduction. 
2000-2130 Subroutine to analyze operator's performance after 

correct answer is guessed and ask about playing 

again. 

2200-2240 Subroutine to display secret code after operator ex- 
ceeds limit of number of guesses. 

MAIN VARIABLES 



D Number of possible digits in each position of the 
code (i.e., a digit from 1 to D). 

P Number of positions in the code. 

L Limit of number of guesses that can be made. 

G$ Array in which guesses are saved. 

G,C Work arrays in which each guess is analyzed. 

B,W Arrays in which the number of black and white re- 
sponses is saved for each guess. 

R,H Work variables. 

G Counter of the number of guesses made. 

A$ Reply by the operator. 

C$ Secret code chosen by the program. 

J,K Loop variables. 

B, W Number of black and white responses for this guess. 

B$ String with message about operator's performance. 



SUGGESTED PROJECTS 

1 . Change the analysis at the end of the game to take into ac- 
count the difficulty of the code as well as the number of 
guesses it took to figure the code out. A four position code 
using the digits 1 through 6 has 1296 possibilities, but a five 
position code using 1 through 8 has 32768 possibilities. 
Change lines 2020 through 2060 to determine the message to 
be displayed based on the number of possibilities in the code 
as well as G. 
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2. At the beginning of the game, give the operator the option 
of deciding the complexity of the code. Ask for the number 
of positions and the number of digits. Make sure only "rea- 
sonable" numbers are used— do not try to create a code with 
zero positions, for example. Another approach is to ask the 
operator if he/she wants to play the easy, intermediate, or 
advanced version. Then set the values of D and P accord- 
ingly. Suggestions are: 

Easy: D = 3andP = 3 

Intermediate: D = 6 and P = 4 
Advanced: D = 8 and P = 5 

3. In addition to using the number of guesses to determine how 
well the operator did, keep track of the amount of time. 
This will require use of the GET function instead of the IN- 
PUT function in line 190, and a bit of logic to "build" the A$ 
reply one character at a time. By counting the number of 
null strings encountered while waiting for keys to be 
pressed, you can "time" the operator. 
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TUNE 



GROAN 



PURPOSE 

Do you like the thrills of fast-paced dice games? If so, 
GROAN is right up your alley. It is a two-person game with the 
computer playing directly against you. There is a considerable 
amount of luck involved. However, the skill of deciding when to 
pass the dice to your opponent also figures prominently. 

The Commodore 64 will roll the dice for both players, but 
don't worry— it will not cheat. (We wouldn't think of stooping 
to such depths.) 

Why is the game called GROAN? You will know soon after 
playing it. 

HOW TO USE IT 

The game uses two dice. They are just like regular six-sided 
dice except for one thing. The die face where the "1" would nor- 
mally be has a picture of a frowning face instead. The other five 
faces of each die have the usual numbers two through six on 
them. 

The object is to be the first player to achieve a score agreed 
upon before the start of the game. Players alternate taking 
turns. A turn consists of a series of dice rolls (at least one roll, 
possibly several) subject to the following rules. 

As long as no frown appears on either die, the roller builds a 
running score for this current series of rolls. After each roll with 
no frown, he has the choice of rolling again or passing the dice 
to his opponent. If he passes the dice, his score achieved on the 
current series is added to any previous total he may have had. 
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But if he rolls and a frown appears, he will be groaning. A 
frown on only one die cancels any score achieved for the current 
series of rolls. Any previous score is retained in this case. How- 
ever, if he rolls a double frown, his entire previous total is wiped 
out as well as his current total. Thus, he reverts back to a total 
score of zero— true despair. 

The program begins by asking what the winning score should 
be. Values between 50 and 100 tend to produce the best games, 
but any positive value less than 1000 is acceptable. Next, you are 
asked to hit any key to begin the simulated coin toss which ran- 
domly decides who will get the first roll. 

Each dice roll is portrayed with a short graphics display. The 
dice are shown rolling and then the outcome is displayed pictori- 
ally. Before each roll, the Commodore 64 indicates whose roll is 
coming up. 

Each roll is followed by a display of the scoreboard. This 
scoreboard gives all relevant information: score needed to win, 
both players' scores before the current series of rolls, and the 
total score for the current series. 

If a frown should appear on a die, the scoreboard will indicate 
the current running total as zero. In addition, the previous total 
will become zero in the case of the dreaded double frown. In 
either case, the dice will be passed automatically to the other 
player. 

If a scoring roll results, the roller must decide whether to roll 
again or to pass the dice. The program has a built-in strategy to 
decide this for the computer. For you, the question will be asked 
after the scoreboard is displayed. The two legal replies are P and 
R. The R means that you wish to roll again. The P means that 
you choose to pass the dice to the computer. If you should score 
enough to win, you must still pass the dice to add the current 
series to your previous total. 

The first player to pass the dice with a score greater than or 
equal to the winning score is the victor. This will surely cause his 
opponent to GROAN. The computer will acknowledge the win- 
ner before signing off. 
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SAMPLE RUN 




The operator has decided to challenge the computer to a fifty point 
game of Groan. 




The operator wins the coin toss and gets the first dice roll. 
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The operator's roll results in a 2 and a 4 for a total of 6 points. The 
operator must now decide whether to pass the dice or risk rolling again. 




Later in the same game, the computer rolls a three and a "groan." This 
scores no points for the series and the dice pass to the operator. 
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PROGRAM LISTING 



RERDV. 



100 REM: GRORN 

110 rem: COPVRIGHT 1983 

111 REM: PHIL FELDMRN.. TOM RUOG. RND 

112 REM: WESTERN SVSTEMS GROUP 
150 Q=RWD';~TI> : 

160 S=1024: 05=54272 
170 DL=200 

130 E=166:D=16S:U=196 

190 POKE 53280. 6: POKE 53281. .6 

195 PRINT CHR*C5> 

280 PR I NT CHR* a 47 > TRB < 1 6 > " GROAN " : PR I NT 
210 PRINT: PR I NT "HOW much NEEDED TO WIN" 
215 INPUT" < BETWEEN 50-100 IS BEST> "JW 
220 W=INT';W> : IF W-:=0 THEN 210 
230 PRINT: PRINT 

232 PR I NT "RND NOW fl COIN TOSS FOR FIRST ROLL" 
234 GOSUB 330 

240 PR I NT: PR I NT: PR I NT "THE COIN IS IN THE RIR RND" 

250 a*="VOU" :Q=RNDa> : IF Q>.5 THEN Q$="l" 
260 PRINT: PRINT SPCO:?.; 

265 FOR J=l TO 5: PRINT". ".;: GOSUB 333 : NEXT 
270 PRINT ij.!*.:" GET FIRST ROLL": GOSUB S40 
275 POKE 532S0..5:POI<E 53291 . 5 : PRINT CHRtc;5> 
280 T=e: IF Q>.5 THEN 400 
300 P*=" VOU" 

305 PR I NT CHR* < 1 47 ) ; TRB < 1 1 > " VOU ' RE ROLL I NO " 

308 GOSUE 830: GOSUB 500 

310 T=T-i-Rl+R2: IF F>0 THEN T=0 

328 IF F=2 THEN H=0 

338 GOSUB 850 

333 IF F>0 THEN PRINT"DICE PRSS TO ME" 

336 IF F>0 THEN GOSUB 849 : GOTO 400 

340 PRINT" ';P=PRSS DICE -- R=ROLL RGRIN:;'" 

345 PRINT :PRINT"VOUR DECISION CP OR R> ?" 

350 GET a*: IF Q*="" THEN 350 

360 IF Q*=="R" THEN 300 

370 IF a*<>"P" THEN 350 

3S0 PRINT :H=H+T: IF H>=W THEN 970 

398 T=0:F=1 : PRINT CHR* CI 47 >: GOTO 330 

400 T=0:P*="I" 

410 PRINT CHR$C147>.;CHR*C17>.;TflEC12:j; "I'M ROLLING" 

415 GCSUE S30: GOSUB 508 

420 T=T+R1+R2:IF F>0 THEN T=0 

430 IF F=2 THEN P==8 

440 GOSUB 858: IF f>0 THEN PR I NT "BICE PASS TO VOU" 

445 IF F>0 THEN GOSUB 848 :T=0: GOTO 308 

450 GOSUB 1080: IF x=l THEN PR I NT "I'LL ROLL AGAIN" 
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455 IF K=l THEN DCSUB 848 : OOTC 410 
460 PR I. KT" I'LL STOP WITH THIS" 
4S5 GOSUB S30:P=P+T:IF P>=W THEN S'70 
470 PR I NT: PR I NT "DICE PRSS TO VOU" 
475 T=0: GOSUB 849 : GOTO 388 

500 C:2=S-i-1-20 ■ i:iL=508 ■ OOSUE 688 : R 1 = I NT < RHD C 1 > *S+ 1 > 
505 R2= I l-^T C RHD < 1 :) *6-!- 1 > 

510 DL==6e:C:2=C2~liS:"G0SUIJ 608 ^ C2=C2-77 : GCSUE 668 
515 C2»C2+83 : COSUE 660 

520 C2=C2+ 1 22 ■ GOSUE 608 ; C2=C£-!- US: GOSUE 688 

525 C2=C2+77: GOSUB 608 

530 C2=C2-S3: GOSUB SBQ 

540 C2=C2- 1 22 : C 1 =2* <. S+4 1 7 > -C2 

558 C=C1 :R=R1 : GOSUE 650:GO:3UB 788 

560 C=C2 : R==R2 : GOSUE 658 : GOSUE 788:^=8 

565 IF Rl=l THEN F=l : NT=5 : GCSUE 380 

579 IF R2-1 THEN F=F+1 : NT=25 : GCSUE 380 

580 IF F=2 THEN GOSUE S£8 : GOSUB 838 
590 RETURN 

630 C1=2*(:S+417:;'-C2:C=C1 : GOSUE >65S 
610 C=C2: GOSUE 650: FOR j=i TO DL : NEXT 
620 PR I N7' CHR* <. 1 47 > : RETURN 

650 POKE C-82..S5:P0!<E C~S2+0S.. 1 : POKE C-7 S,73 
655 POKE C-78+0S.. 1 :pnKE C+78.. 74 : POKE C-i-7 S+OS.. 1 
660 POKE C+S2.. 75:PCKE C+S2+0S.. 1 : FOR J=l TO 3 
665 POKE C-S2+J..64:P0KE C-S2+J+0S.. 

1 :POKE C-79+40*J.93 
670 POKE C~7S+40*J+OS. 1 :POKE C~S2-i-40*^T, 33 
675 POKE C-S2+40*J+OS. 1 :POKE CH-7S+J.64 
680 POKE C+78+J-I-0S. 1 : NEXT: RETURN 
700 ON R GOSUB 705. 725.. 735.. 748.. 758.. 755 : RETURN 
705 POKE C--41..S7:P0KE C-41+0S.. 1 : POKE C-3 9.. 87 
710 POKE C-39+0S.. 1 :P6kE C..46:PCKE C+OS.. 1 
715 POKE C+33.. S5:P0KE C+39+0S. 1 : POKE C+4 8.. 64 
720 POKE C+40+OS.. 1 :POKE 

C+4 1 .. 73 : POKE C+4 1 +0S .. 1 : RETURN 
725 POKE C--4 1 .. S 1 : POKE C-4 1 +0S .. 1 : POKE C+ 4 1 .. 8 1 
730 POKE C+4 1 +0S. 1 : RETURN 

735 POKE C 31: POKE C+OS.. 1 : GOSUB 725= RETURN 

740 GOSUE 725: POKE C-33.. 31 : POKE C-3S+0S. 1 

745 POKE C+39.8i:P0KE C+39+0S.. 1 : RETURN 

750 GOSUB 740: POKE C. Si: POKE C+OS. 1 : RETURN 

755 GOSUE 740: POKE C-1..S1:P0KE C-l+OS. 1 

760 POKE C+l..Si:POKE C+l+CS. 1 : RETURN 

800 PRINT CHR$(.19> 

.805 FOR J=l TO 3 = PR I NT CHR* a 7 > .; : NEXT 

810 PRINT TRE<NT>J "GRCflN" :G0:3UB 838 : RETURN 

820 FOR J=l TO 5: PRINT CHR$< 145 > .1 : NEXT 

825 PR I NT TRB < 1 4 > .; CHR* C 1 8 j .; " DESPR I R " : RETURN 

830 FOR K=l TO 1508 : NEXT : RETURN 

840 FOR K=l TO 5080 : NEXT : RETURN 

850 PRINT CHR$<lSi> 
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853 FOR J=l TO 13 ^ PRINT CHR*a7> NEXT 

856 PRINT: FOR TO 11 

860 PRINT CHR*a;>.; :NEXT 

363 PRINT" SCOREBCRRD "; 

866 FOR J=l TO 12:PRINT CKRiFCB) .: : NEXT 

868 PRINT 

870 GOSUE 360: PRINT CHR* (E!) .; SPCCS;? .: W; 

875 PRINT "POINTS NEEDED TO WIN" ; TflBC34> j CHR^'^EJ 

380 PRINT chr*';b>.; 

883 FOR J=l TO 33: PR I NT CHR* C D ::'.:: NEXT 
886 PRINT CHR*<E;' :eOSLiE 968 

830 PRINT CHR$';E);" POINTS SCORED VOU ME"; 

895 PRINT TRBC34>;CHRf(:E> 

900 PRINT CHRf'^B;.;" BEFORE THIS"; 

905 PRINT TAB < 20 ? CHR* < U > ; CHR* < U > ; CHR* < U > ; 

9 1 PR I IwT TflE 23 > .; CHR* < 1.1 > .; CHR* < U } .: TAB < 34 > .; CHR* E > 

920 PRINT CHR*<B>;" SERIES" .: TRB< 19> ; H.: 

925 PRINT TRE':;27).;P.TRB(:34>.;CHR*a3> 

930 PRINT CHR$<B>; 

933 FOR .T=l TO 33: PRINT CHR*(:D>.: : NEXT 
936 PRINT CHR*(:E> :C:CSUE 960 
940 PRINT CHR*''B::'.;P*.; 

943 PRINT " HRVE";T; "POINTS THIS SERIES"; 
946 PR I NT TRB <. 34 > ; CHR* (.By- GOSUB 960 
950 FOR J=l TO 35: PRINT CHR* < B );: NEXT 
955 PR I NT : PR I NT : RETURN 

960 PR I NT CHR* < B > ; TAB < 34 > ; CHR* E > : RETURN 

970 T=0 : PR I NT CHR* < i 47 > : GOSUE S50 

975 IF P>=W THEN PRINT : PR I NT "SKILL WINS RGRIN" 

980 IF H>--U THEN PR I NT "VOU WIN -"; 

9S5 IF H>=W THEN PRINT" IT WRS SHEER LUCK" 

990 POKE 53280. 14 : POKE 53281.6 

995 END 

1000 V=P+T:IF V>«W THEN 1100 
1010 IF CW-HXie THEN 1110 
1020 IF P>=H THEN L=T/25 : GOTO 1050 
1030 IF V<H THEN L=T/35 : GOTO 1050 
1040 L==T,-'3e 

1050 IF RNDa>>L THEN 1110 
1100 X~0: RETURN 
1110 X=l : RETURN 

RERDV. 



EASY CHANGES 

1 . If you wish to set the program for a fixed value of the win- 
ning score, it can be done by deleting line 210 and changing 
line 215. Simply set W to the winning score desired. For 
example: 

215 W=100 
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would make the winning score 100. 
2 . The rolling dice graphics display before each roll can be 
eliminated by adding line 507 as follows: 
507 GOTO 550 

This has the effect of speeding up the game by showing each 
dice roll immediately. 
3. After you play the game a few times, you may wish to 
change the delay constants in lines 830 and 840. They con- 
trol the "pacing" of the game; i.e., the time delays between 
various messages, etc. To speed up the game try 
830 FOR K = 1 TO 500: NEXT: RETURN 
840 FOR K = 1 TO 1000:NEXT:RETURN 
Of course, if desired, the constants can be set to larger 
values to slow down the pacing. 



MAIN ROUTINES 

150- 180 Initializes constants. 

200- 280 Initial display. Gets winning score. 

300- 390 Human rolls. 

400- 475 Commodore 64 rolls. 

500- 620 Determines dice roll, drives its display. 

650- 760 Draws die face and outline. 

800- 825 Displays groan messages. 

830- 840 Delay loops. 

850- 960 Displays scoreboard. 

970- 990 Ending messages. 

1000-1110 Computer's strategy. Sets X = to stop rolling or 
X = 1 to continue rolling. 



MAIN VARIABLES 



W Amount needed to win. 

H Previous score of human. 

P Previous score of computer. 

T Score of current series of rolls. 

X Computer strategy flag (O = stop rolling; l = roll 

again). 

L Cutoff threshold used in computer's built-in 

strategy. 
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V Score computer would have if it passed the dice. 

Q,Q$ Work variable, work string variable. 

J,K Loop indices. 

P$ String of name of current roller. 

R1,R2 Outcome of roll for die 1, die 2. 

R Outcome of a die roll. 

F Result of roll (0 = no frown; 1 = one frown; 2 = dou- 
ble frown). 

B,D,U CHR$ arguments for border, divider, underline. 

S Starting argument for CRT displays. 

C1,C2 POKE address of die 1, die 2. 

C POKE address of a die. 

NT Argument for TAB function. 

DL Delay Length 



SUGGESTED PROJECTS 

1 . The computer's built-in strategy is contained from line 1000 
on. Remember, after a no frown roll, the Commodore 64 
must decide whether or not to continue rolling. See if you 
can improve on the current strategy. You may use, but not 
modify, the variables P, T, H, W. The variable X must be 
set before returning. Set X = to mean the computer passes 
the dice or X = 1 to mean the computer will roll again. 

2. Ask the operator for his/her name. Then personalize the 
messages and scoreboard more. 

3. Dig into the workings of the graphics routines connected 
with the dice rolling. Then modify them to produce new, 
perhaps more realistic, effects. 
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JOT 



PURPOSE 

JOT is a two player word game involving considerable mental 
deduction. The Commodore 64 will play against you. But be 
careful! You will find your computer quite a formidable 
opponent. 

The rules of JOT are fairly simple. The game is played entirely 
with three-letter words. All letters of each word must be 
distinct— no repeats. (See the section on Easy Changes for fur- 
ther criteria used in defining legal words.) 

To begin the game, each player chooses a secret word. The re- 
mainder of the game involves trying to be the Hrst player to 
deduce the other's secret word. 

The players take turns making guesses at their opponent's 
word. After each guess, the asker is told how many letters (or 
hits) his guess had in common with his opponent's secret word. 
The position of the letters in the word does not matter. For ex- 
ample, if the secret word was "own," a guess of "who" would 
have 2 hits. The winner is the first person to correctly guess his 
opponent's secret word. 

HOW TO USE IT 

The program begins with some introductory messages while 
asking you to think of your secret word. It then asks whether or 
not you wish to make the first guess. This is followed by you and 
the Commodore 64 alternating guesses at each other's secret 
word. 
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After the computer guesses, it will immediately ask you how it 
did. Possible replies are 0, 1, 2, 3, or R. The response of R (for 
right) means the Commodore 64 has just guessed your word cor- 
rectly—a truly humbling experience. The numerical replies in- 
dicate that the word guessed by the computer had that number 
of hits in your secret word. A response of 3 means that all the 
letters were correct, but they need to be rearranged to form the 
actual secret word (e.g. a guess of "EAT" with the secret word 
being "TEA"). 

After learning how it did, the computer will take some time to 
process its new information. If this time is not trivial, the Com- 
modore 64 will display the message: "I'M THINKING" so you 
do not suspect it of idle daydreaming. If it finds an inconsistency 
in its information, it will ask you for your secret word and then 
analyze what went wrong. 

When it is your turn to guess, there are two special replies you 
can make. These are the single letters S or Q. The S, for sum- 
mary, will display a table of all previous guesses and correspond- 
ing hits. This is useful as a concise look at all available informa- 
tion. It will then prompt you again for your next guess. The Q, 
for quit, will simply terminate the game. 

When not making one of these special replies, you will input a 
guess at the computer's secret word. This will be, of course, a 
three letter word. If the word used is not legal, the computer will 
so inform you. After a legal guess, you will be told how many 
hits your guess had. If you correctly guess the computer's word, 
you will be duly congratulated. The computer will then ask you 
for your secret word and verify that all is on the "up and up." 
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SAMPLE RUN 




The player and the computer each select their secret words. The com- 
puter is given the first guess. 




The computer and player exchange the first few guesses and their results 
with each other. 
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Later in the same game, the player requests a summary before making 
his guess. 




The computer, however, guesses correctly to win the game. After reveal- 
ing its secret word, the computer offers another game but the player has 
had enough. 
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PROGRAM LISTING 



REPIDV. 



100 rem: jot 

110 REM: COPVRIGHT 13S3 

111 REM: PHIL FELDMflN.. TOM RUGG.. AND 

112 REM: WESTERN SYSTEMS GROUP 
150 M=25 : H=406 : V==250 

160 DIM Rit-cv:;'.. E*<H-V) 

170 DIM Glir';M>.G2*<M).Hl<M>.H2<M) 

200 Gl=0:Q2--=0 

210 L=N:Q=RND<-TI> 

250 PRINT CHR*<147>JSPCa6>;CHR*<lS>; "J T": PRINT 

260 PR I NT "JUST fl MOMENT PLEfiSE 

265 GOSUE 3000:PRINT;Q=RNDa>*N+l 

270 PR I NT "THANKS. NOW LET'S ERCH THINK" 

275 PR I NT "OF OUR SECRET WORD" 

280 PRINT: PR I NT"'; THIS TRKES ME B WHILE ...>" 

230 ijOSUE 2200 : GOSUE 2000 : M* ^Q* : PR I NT : PR I NT " OK .. " ; 

300 INPUT "DO VOU WRNT TO GO FIRST".;Q$ 

310 Q$=LEFTf tQ*. 1> : IF Qf="N" THEN 60© 

320 IF Q*="V" THEN 500 

330 PRINT: PR I NT "VES OR NO PLEASE" : PRINT : GOTO 300 

500 PRINT: INPUT "VOUR GUESS O'JR S OR QVSP* 

505 IF P$="S" THEN GOSUB 1000: GOTO 500 

510 IF PS:="Q" THEN 1100 

520 IF P$==M$ THEN G1=G1 + 1 : G1$<G1 >=P$ 

525 IF P*==M* THEN HI <G1 >=9 : GOTO 3400 

530 GOSUB 1800 

533 IF F=0 THEN PR I NT " THAT S NOT A LEGAL WORD"; 

536 IF F=0 THEN PRINT" — TRY AGAIN": GOTO 508 

540 Q*=M$: GOSUE 2600 : Q*=P* : GOSUB 150© 

550 PRINT"* OF HITS IS";Q 

560 Gl=Gl-i-l :Gl*<Gl)--Qit::Hl';Gl>=G 

570 IF G1=M THEN 3600 

600 Q=L : GOSUE 2000 : G2=G2+ 1 : G2* '■. Q2 '> -Qf- 
610 PRINT: PR I NT "MY GUESS IS ~- " Q* 
620 INPUT"HOW DID I DO 'r.0~3 OR R>";P* 
630 Pf =LEFT$':!P*.' 1 > 

640 IF P*="R" THEN H2';G2';'=9 : GOTO 3200 
650 P=VAL(:P*> 

653 IF P>3 OR <P=0 AND P*<;>"0"> THEN GOSUB 659 
656 IF P>3 OR <P=0 AND P$<>"8") THEN GOTO 618 
65S GOTO 660 

659 PRINT "BAD ANSWER" : RETURN 

660 IF L>100 THEN PRINT : PRINT" I ''M THINKING ..." 
670 H2<:G2>=P: GOSUE S00 
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690 GOTO 590 

800 C:!*=G2$ < 02 ) : H=H2 C, G2 > : J=0 : GOSUE 2600 

805 L=L~l:lF L<1 THEN 900 

810 J=J+1 : IF J>L THEN 870 

S20 Q=J: GOSUE 2000: GOSUE 150© 

330 IF Q=H THEN 810 

840 fi=J : E=L : GOSUE 2400;L=L-1 

S50 IF L<1 THEN 900 

860 IF L>=J THEN 820 

870 RETURN 

900 PR I NT : PR I NT " SOMETH I NO ' S WRONG ! ! " 

910 PRINT: INPUT "WHRT'S yOUR SECRET WCRB".;P* 

915 GOSUE 1S00 

920 IF F=0 THEN PRINT : PRINT" ILLEGAL WORD"; 
923 IF F=0 THEN PRINT" ~ I NEVER HflU R CHRNCE" 
92S IF F=0 THEN GOTO 1100 
930 PRINT 

935 PRIHT"VOU CRVE R ERE RNSWER SOMEWHERE — " 
940 PR I NT "CHECK THE SUMMRRV ": GOSUE 100© 
950 GOTO 1100 

1000 PRINT : Q=G1 : IF G2>G1 THEN i:.:!=G2 

1010 IF Q=0 THEN PRINT"NO GUESSES VET": RETURN 

1 020 FOR J= 1 TO :3S : PR I NT " - " .; : NEXT : PR I NT " ■■- " 

1 030 PR I NT " VOUR GUESSES " .: CHR* ■:: 1 S ) ; " SUMMRRV " ; 

1035 PRINT CHR»a46>;" MV GUESSES" 

1040 PRINT CHRtao); "WORD"; SPC';2>.; "HITS"; 

1 045 PR I NT TRE 28 > ; " WORD " ; SPC 2 ; " H I TS " 
1050 FOR J=l TO Q:K=1:IF J>9 THEN l<=0 
10S0 IF J>G1 THEN PRINT SPCa7+K> ; J; SPC';S> ; 
1063 IF J>C1 THEN PRINT G2*< JJ ; SPCc:2> ; H2< J) 
1066 IF J>G1 THEN GOTO 109© 

1070 IF J>G2 THEN PRINT SPC< 1 ) ; Glf (JJ ; SPCC2> ; 
1073 IF J>G2 THEN PRINT HI <..T> ; SPC<8+K> ; J 
1076 IF J>G2 THEN GOTO 1090 

1 080 PR I NT SPC c: 1 > . G 1 * c; J ;j ; SPC 2 ) ; H 1 < J ) ; SPC B+K. ■> ; 
1 085 PR I NT J ; SPC 8 > ; G2$ ( J > ; SPC < 2 > ; H2 < J ) 
1090 NEXT: RETURN 

1100 PRINT: INPUT "HOW REOUT RNOTHER GRME";Q* 
1110 G:!iF=LEFT*<Q*. 1> : IF Q*="V" THEN 200 
1120 IF Q*«"N" THEN END 

1130 PRINT :PRINT"VES OR NO PLERSE":GOTO 1100 

1500 P*=LEFT*'::Q*.. 1> : 0=0: GOSUE 160© 

1510 P*~MID$Oa3:.2.. 1> :GOSUE 1600 

1 520 P*»R I GHT* <: Q* .. 1 > : GOSUE 1 600 : RETURN 

1600 IF P*=M1*- OR P|:=ri2*: OR P*=M3$ THEN G!=Q+1 

1610 RETURN 

1S00 J=0:Fa0 

1810 J»J+i:lF .J>N THEN RETURN 

1S20 Q=J: GOSUE 2000: IF Q*OP* THEN 1810 

1830 F=l : RETURN 
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2000 IF Q>V THEN Qir=E$<Q-V> : RETURN 
20 1 Q*=R* < Q > : RETURN 
2100 IF P>V THEN E*<P-V)=P*: RETURN 
2110 n*(:P)=P*: RETURN 

2200 FOR R=N TO 1@0 STEP -1 : E=INT(:RNrja >*R> + 1 
2210 GOSUE 2400: NEXT 

2220 PRINT: PRINT" I'VE rlmOST GOT IT " 

2230 FOR f\=9S TO 2 STEP -1 : E=INT(;RNri'r. 1 >*fl) + l 

2240 GOSUE 2400 : NEXT : RETURN 

2400 Q«R : GOSUB 2900 : F-$~Q-$ ■ Q=B 

24 1 GOSUE 2006 : P=E : GOSUE 2 1 00 : P$=Qt- 

2420 P=l'|: GOSUE 2100: RETURN 

2600 M 1 *=LEFTt- < Q$. , 1 : M2*=ri I D* C Q* .. 2 . 1 > 

2610 M3*=RIGHT*<Qf . 1 > : RETURN 

3000 RESTORE: FOR P=l TO N : RERD P* 

30 1 GOSUE 2 1 00 : NEXT : RETURN 

3200 PRINT •PRINT" IT SURE FEELS GOOD" 

3210 PRINT : PR I NT "MV WORD WRS - " .: M* 

3220 GOTO 1100 

3400 PRINT 

3405 PRINT"CONGRRTULRTIONS ~ THRT WRS IT": PRINT 

3410 INPUT"WHRT WAS VOUR WORD" ; P* : GOSUB 1S00:J=1 

3420 IF F=0 THEN PRINT 

3423 IF F=0 THEN PRINT" ILLEGAL WORL'"; 

3426 IF F=0 THEN PRINT" - I HRE NO CHRNCE" 

342S IF F=e THEN GOTO 1108 

3430 Q=J : OOSUE 2000 

3433 IF Q*==P* THEN PRINT : PRINT"NICE WORD" 
3436 IF Q*=P* THENGOTO 1100 
3440 J=J+1 : IF J<--L THEN 3430 

3450 PRINT : PR INT" VOU MRDE RN ERROR SOMEWHERE" 
3455 PRINT"— CHECK THE SUMMRRV" 
3460 GOSUE 1000: GOTO 110© 

3600 PR I NT : PR I NT " SCRR V . I ' M CUT OF MEMORY " : PR I NT 

3610 PRINT"MV WORD WRS - " ; MiT : GOTO 1180 

5000 DRTR RCE.RCT..RDE..RDO.RDS.RFT.RGE 

5010 DRTR RGO.RID.RIL.RIM.RIR.RLE..RLP 

5020 DRTR RND .. RNT . RNV .. RPE .. APT . RRC .. RRE 

5030 DRTR RRK .. ARM RRT RSH ,. RSK! .. RSP RTE 

5040 DRTR Flt'JE .. RWL RXE .. RYE .. ERE ERi3 ,. BAN 

5050 DATA BAR ., BRT . ERY .. BED .. BEG .. BET .. E I D 

5060 DRTR BIG,. BIN.. BIT.. EOfl.. BOG.. BOW.. BOX 

5070 DRTR EG V . BUD BUG .. BUM .. BUN .. BUS .. BUT 

5080 DRTR BUY > EYE .. CRE .. CRD .. CRM .. CRN .. CRP 

5090 DRTR CRR .. CRT . COB .. COD .. COG .. CON .. CCP 

5 1 00 DATA COT .. COW .. COY . CRY .. CUB .. CUD .. CUE 

5 1 1 DATA CUP .. CUR > CUT .. DAB .. BRH .. DRV .. DEN 

5 1 20 DRTR DEW .. D I E .. D I G .. D I M .. D I N D I P .. DOE 

5 1 30 DRTR DOG .■ DON .. DOT . DRY .. DUE . DUE .. DUG 

5140 DRTR DYE . DUO . ERR . ERT . EGO ELK .. ELM 
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5 1 50 DfiTfl END .. EMU .. ERA . FRI: .. FflG , FRN .. F RR 
5 160 DRTR FRT . FEI! .. FEW .. F I G .. F I. N .. F I R .. F I T 
5 1 70 DRTR F I H , FLV .. FOE .. FOC FOR .. FOX .. FRV 
51S0 DRTR FUN.FUR.. GRP.. GRS.. GRV.. GEM.GET 

5 1 99 DRTR C I M , CKU .. GOE / GOD .. GOT .. FUM .. GUK 

5200 DRTR GUT , GUV .. GVP .. HflD , HflG .. HflM j HRS 
52 1 DRTR HRT HR V .. HEN .. HEK .. H I D .. !-l I M .. H I P 
5220 DRTR H I S .■ H I T , HER ■■ HEM .. HCE HOO HOP 
5230 DRTR HOT .. HON .. HUB .. HUE .. HUO .. HUM .. HUT 
5240 DRTR ICE. ICV.. ILK.. INK. IMP.. ION.. IRE 
5250 DRTR I RK . I TS .. I V V . JRB .. .JRR .. .JflW .. JRY 
5260 riRTfl ..TOE . -JOG .. JOT . -JOV .. .JUG , .JRG .. JRM 
5270 DRTR JET .. JIB. JOG . JUT . KEG . KEV . K I D 
5280 DRTR K I H . K I T .. LRE . LRD .. LRG .. LRP .. LRU 
5290 DRT'R LR't' , LRX .■ LED , LEG .. LET L I D , L I E 
5300 DRTR L I P L I T .. LOB .. LOG LOP .. LOT .. LOW 
53 1 DRTR LVE .. MRD .. MRH .. MRP ,. MRR .. MRT ., MRY 
5320 DRTR MEN .. MET ..MID.. MOB .. MOP .■ MOW .. HUD 
5330 DRTR I'^l I X MUG .. NR3 .. NRG .. NRP .. Nfl V .. NET 
5340 DRTR NEW . N I L N I P .. NOD .. NOT .. NOR .. NOW 
5350 DRTR NUT .. ORF .. ORK .. ORR .. ORT . ODE .. 1 L 
5360 DRTR OLD .. OhJE .. OPT .. ORE OUR .. OUT .. OVR 
5370 DRTR OWE OWL .. OUH .. PRD .. PRL .. PFl!"'l .. PRR 
5380 DRTR PRT . PRN . PRV . PER .. PEG .. PEN , PET 
5390 DRTR PEW . P I E .. P I G . P I T .. PLY .• POD .. POT 
5400 DRTR POX . PER .. P I N . PRO .. PRV . PUB . PUN 
5410 DRTR PUS.PUT.RflG.RRM.RRN.RRP.RRT 
5420 DRTR RRW . RR V . RED . R I E .. R I D REV ..RIG 
5430 DRTR RIM, RIP. ROE. ROB.. ROE. ROT.. ROW 

5449 DRTR RUE . RUE . RUG . RUM .. RUN . RUT . RYE 

5450 DRTR SRD . SRG . SRP . SRT . SRW . SflV . SET 
5460 DRTR SEW.. SEX.. SHY. SER.. SIN. SHE. SIP 
5470 DRTR SIR. SIT. SIX. SKI . SKY. SLY. SOB 
5480 DRTR SOD . SON . SOW . SOY . SPR . SPY . STY 
5490 DRTR SUE . SUM . SUN . TRE .. TRD . TRG . TRN 
5500 DRTR TRP . TRX . TRR . TER . TEN . THE . THY 
5510 DRTR TIC. TIE. TIN. TIP. TOE. TON. TOP 
5520 DRTR TOW . TO V . TRY . TUB . TUG . TWO . URN 
5530 DRTR USE . UPS . VRN . VRT . VEX . V I R . V I E 
5540 DRTR V I M . VOW . YRK . YRM . YEN . YES . VET 
5550 DRTfl YOU . WRD . WRG . WAN . WRR . WAS . WAX 
5560 DATA WRY . WEE . WED . WET . WHO . WHY ..WIG 
5570 DATA WIN. WIT. WOE. WON. WRY. ZIP. FIE 

READY, 

EASY CHANGES 

1 . It is fairly common for players to request a summary before 
most guesses that they make. If you want the program to 
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automatically provide a summary before each guess, change 
line 500 to read 

500 GOSUB 1000:PRINT:INPUT«YOUR GUESS 
(OR Q)";P$ 

and delete line 505. 

2. The maximum number of guesses allowed, M, can be 
changed in line 150. You may wish to increase it in conjunc- 
tion with Suggested Project 2. You might decrease it to free 
some memory needed for other program additions. The cur- 
rent value of twenty-five is really somewhat larger than 
necessary. An actual game almost never goes beyond fifteen 
guesses. To set M to 15 change line 150 to read 

150M=15:N = 406:V=250 

3. Modifying the data list of legal words is fairly easy. Our 
criteria for legal words were as follows: they must have three 
distinct letters and not be 

—capitalized 

— abbreviations 

— interjections (like "ugh," "hey" etc.) 

— specialized words (like "ohm," "sac," "yaw" etc.) 

In line 150, N is set to be the total number of words in the 
data list. The data list itself is from line 5000 on. 

To add word(s), do the following. Enter them in data state- 
ments after the current data (use line numbers larger than 
5570). Then redefine the value of N to be 406 plus the 
number of new words added. For example, to add the words 
"ohm" and "yaw" onto the list, change line 150 to read 

150M = 25:N = 408:V=250 
and add a new line 

5580 DATA OHM, YAW 

To delete word(s), the opposite must be done. Remove the 
words from the appropriate data statement(s) and decrease 
the value of N accordingly. 

MAIN ROUTINES 



150- 170 Dimensions arrays. 
200- 330 Initializes new game. 
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500- 570 Human guesses at the computer's word. 

600- 680 Computer guesses. 

800- 870 Evaluates human's possible secret words. Moves 
them to the front of A$-B$ array. 

900- 950 Processes inconsistency in given information. 

1000-1090 Displays the current summary table. 

1100-1130 Inquires about another game. 

1500-1610 Compares a guess with key word. 

1800-1830 Checks if input word is legal. 

2000-2010 Sets Q$ to Qth element of A$-B$ array. 

2100-21 10 Sets Pth element of A$-B$ array to P$. 

2200-2240 Shuffles A$-B$ array randomly. 

2400-2420 Swaps elements A and B in the A$-B$ array. 

2600-2610 Breaks word Q$ into separate letters. 

3000-3010 Fills A$-B$ array from data. 

3200-3220 Post-mortem after computer wins. 

3400-3460 Post-mortem after human wins. 

3600-3610 Error routine— too many guesses. 

5000-5520 Data. 



MAIN VARIABLES 



V 


Size of A$ array (250). 


N 


Total number of data words. 


M 


Maximum number of guesses allowed. 


A$ 


String array holding first V data words. 


B$ 


String array holding last (N-V) words. 


G1$,G2$ 


String arrays of human's, computer's guesses. 


H1,H2 


Arrays of human's, computer's hits corresponding 




to G1$,G2$. 


G1,G2 


Current number of human's, computer's guesses. 


M$ 


Computer's secret word. 


M1$,M2$, 


First, second, and third letters of a word. 


M3$ 




P$,Q$ 


String temporaries and work variables. 


L 


Current number of human's possible secret words. 


F 


Flag for input word legality. 


H 


Number of hits in last guess. 


A,B 


A$-B$ array locations to be swapped. 


J.P.Q 


Temporaries; array and loop indices. 


K 


Formatting variable used in summary display. 
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SUGGESTED PROJECTS 

1 . Additional messages during the course of the game can per- 
sonify the program even more. After the Commodore 64 
finds out how its last guess did, you might try an occasional 
message like one of these: 

JUST AS I THOUGHT. . . 

HMM, I DIDN'T EXPECT THAT. . . 

JUST WHAT I WAS HOPING TO HEAR. . . 

The value of L is the number of words to which the compu- 
ter has narrowed down the human's secret word. You might 
check its value regularly and when it gets low, come out with 
something like 

BE CAREFUL, I'M CLOSING IN ON YOU. 

2. Incorporate a feature to allow the loser to continue guessing 
at the other's word. The summary display routine will al- 
ready work fine even if Gl and G2 are very different from 
each other. It will display a value of "9" for the number of 
hits corresponding to the correct guess of a secret word. 
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OBSTACLE 



PURPOSE 

This program allows you and a friend (or enemy) to play the 
game of OBSTACLE, an arcade-Uke game that's one of our 
favorites. A combination of physical skills (reflex speed, hand to 
eye coordination, etc.) and strategic skills are needed to beat 
your opponent. Each game generally takes only a minute or two, 
so you'll want to play a match of several games to determine the 
better player. 

HOW TO USE IT 

The object of the game is to keep moving longer than your op- 
ponent without bumping into an obstacle. When the program 
starts, it asks in turn for the name of the player on the left and 
on the right. Then it displays the playing field, shows the starting 
point for each player, and tells you to press any key to start. 

After a key is pressed, each player begins moving indepen- 
dently in one of four random directions — up, down, left, or 
right. As each player moves, he or she builds a "wall" inside the 
playing field. The computer determines the speed of the move; 
the player can only control his own direction. The player on the 
left can change direction to up, down, left, or right by pressing 
the key W, Z, A, or D, respectively. The player on the right does 
the same by using the keys for @, / (slash), : (colon), and = 
(equals). Find these keys on the Commodore 64 keyboard and 
you will see the logic behind these choices. 

The first time either player bumps into the wall surrounding 
the playing field or the obstacle wall built by either player, he or 
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she loses. When this happens, the program indicates the point of 
impact for a few seconds and displays the name of the winner. 
Then the game starts over. 

The strategic considerations for this game are interesting. 
Should you attack your opponent, trying to build a wall around 
him that he must crash into? Or should you stay away from him 
and try to make efficient moves in an open area until your oppo- 
nent runs out of room on his own? Try both approaches and see 
which yields the most success. 

When pressing a key to change direction, be sure to press it 
quickly and release it. Do not hold a key down— you might in- 
hibit the computer from recognizing a move your opponent is 
trying to make. Once in a while, only one key will be recognized 
when two are hit at once. 



SAMPLE RUN 




The program starts off by asking for the names of the two players. 
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The program tells each player which keys to use to change directions 
and waits for a key to be pressed. 




The program draws the playing field and starts each player moving in a 
random direction. Tom (on the left) doesn't change direction soon 
enough and crashes into the wall, making Phil the winner. 
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PROGRAM LISTING 

REFIDV, 



lie 
111 

l<i 
115 
120 
125 
128 
130 
140 
141 
14£ 
143 
145 
146 
147 
150 
152 
155 
160 
165 
167 
179 
130 
200 
205 
210 
220 
230 
240 
245 
250 

260 
265 
270 
2S0 
230 

300 

310 
320 
330 
340 
350 

400 

410 



VOURS RRE: 

IS UP. 

IS LEFT. •■ 

VOURS ARE: 

IS UP.. 

IS LEFT.. ■' 



IS DOWN." 
IS RIGHT" 



DOWN.. " 
RIGHT" 
TO START' 



REM: OESTRCLE 
rem: COPVRIGHT IS'SS 
REM: TOM RUOG.. PHIL FELDMRN.. RND 
REM: WESTERN SYSTEMS GROUP 
PRINT CHRiT^S'; 
X=RND'::-TI> :G0SUE 600 
POKE 5328 1 . 1 : PR I NT CHR* a 47 > : PR I NT 
POKE 532S0.l:POKE 5328 1..0 
PR I NT TRE < 1 5 ) CHR$ a S > ; " OESTRCLE " 
PRINT: PRINT 
PRINT: PRINT Rt; " , 
PRINT TRECS> "-'N' 
PRINT TRE<8> "'R' 
PR I NT: PR I NT E*; " .. 
PRINT TRBfiS;- "-'S-' IS UP.. IS 
PRINT TRE03> "■-:•' IS LEFT.. I:! 
PR I NT : PR I NT TRB i .9 > ; " H I T RNV KEV 
GET RS::IF R*="" THEN 152 
Z=90 

RX=i0 : flV=12 : EX:-=2:=' : EV=12 : R^-:=:6 : B=102 
S= 1 024 : E= 1 27 : RC= I NT i 4itiRN3;i < 1 > > 1 
BD= I HT <: 4*RHD a > > + 1 : C0=55236 : RC=2 : EC=5 
POKE 5323 1 .. 1 : PR I NT CHR* a 47 > ; : POKE 5328 1 . 8 
FOR J-1 TO 1008: NEXT 
GOSUB Si50:GOSUE 900 
FOR .J=l TO 10: GET R4-:NEXT 
X=RX : V--RV : D=RD : GOSUB 1 000 
flR=R : RX«X : R't'='t' 
X=BX : V=BV : D=ED : GOSUB 1 000 
BR=R : EX=X : EV=V 
IF RR==1 OR BR=1 THEN 400 
GOSUB 900 
FOR ..T=l TO 10 
GET R* 
IF R*="W" 
IF R$:="Z" 
IF R*="R" 



IF R$:="Ii" 
IF Ri|?=:"l2" 

IF R#~ 
IF : " 

IF R*="=s" 
NEXT 

GOTO 210 
GOSUB 700 
IF BR-~1 



THEN flD=l 
THEN flE=2 
THEN nD=3 
THEN RD=4 
THEN BB=1 
THEN BB=2 
THEN BB=3 
THEN EB=4 



X=RX : VsRV 
HEN X=EX : V=BV 
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420 
436 
448 
450 



FOR J=l TO 15 
POKE S+40*V+X / Z 
FOR K=l TO £00: NEXT 
POKE S+40*V-i-X .. Z+ 1 28 



460 FOR I<=1 TO 200: NEXT 
470 NEXT 

4S0 FOR J=l TO 20: GET R* : NEXT 
490 GOTO 125 

600 POKE 532S 1 .. 1 : PR I HT CHR$ 1 4? > : POKE 532S 1 , 
61 S INPUT"NFIME OF PLRVER OH LEFT";Rt- 
620 PRINT 

630 IHPUT"PLflVER ON RIGHT" J E* 

640 RETURN 

700 PRINT CHR$ C 1 .; 

710 FOR j==i TO 12 

720 PRINT CKR*<17):NEXT 

730 IF RR=1 AND ER=1 THEN PRINT"VCU BOTH LOSE!"; 
735 IF RR=1 FINI: BR=1 THEN RETURN 
740 R*=0*:IF flR=l THEN R$=B* 
750 PRINT R$:,; " WINS! "; 
760 RETURN 

900 POKE 00+40*0'?' -i-flx flC 

905 P0K.E <S+40*fiV+flX';' .. 1=1 

9 1 POKE <. CO+40*EV+BX > .. EC 

915 POKE <:S+40*EV+EX>.E 

920 RETURN 

950 FOR X=0 TO 39 

960 POKE S+X.E:POKE S+SS0+X.E 

970 NEXT: FOR V=0 TO 22 

9130 POKE <: S+40*V > .. E : POKE < S+40*V+39 > j E : NEXT 
990 RETURN 

1000 IF 2=1 THEN 't'='t'~1 
1010 IF H~2 THEN 't'='t'+1 
1020 IF D=3 THEN X=X-1 
1030 IF D=4 THEN X=X-i-l 
1040 R=e 

1050 IF PEEK<:S+40*V+X>O32 THEN R=l 
1060 RETURN 

REFIDV. 



EASY CHANGES 

1 . To speed the game up, change the 10 in line 255 to a 5 or so. 
To slow it down, make it 12 or 15. 

2. To make both players always start moving upward at the 
beginning of each game (instead of in a random direction), 
insert the following statement: 



168 AD = 1:BD=1 
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To make the players always start off moving toward each 
other, use this statement instead: 

168 AD = 4:BD = 3 

3. To change the length of time that the final messages are dis- 
played after each game, modify line 420. Change the 15 to 8 
(or so) to shorten it, or to 25 to lengthen it. 

4. Change the keys that are used to determine each player's 
direction by altering the appropriate values in lines 265 
through 330. For example, to make the X key cause the 
player on the left to go down, make this change: 

270 IF R$ = "X" THEN AD = 2 
Don't forget to change the display in lines 141 through 147 to 
agree. 

MAIN ROUTINES 

120- 150 Initializes variables. Gets players' names. Displays 
titles, playing field. 

152- 200 Waits for key to be pressed to start game. Re- 
displays playing field. 

205- 250 Makes move for player A (on left side) and B (on 
right). Saves results. 

255- 350 Accepts moves from keyboard and translates 
direction. 

4(K)- 490 Displays winner's name at bottom of screen. 

Flashes a diamond where collision occurred. Goes 

back to start next game. 
6(X)- 640 Subroutine that gets each player's name. 
700- 760 Subroutine that displays winner's name. 
900- 920 Subroutine that POKEs each graphics character of 

each player's obstacle on the screen. 
950- 990 Subroutine that displays playing field. 
1000-1060 Subroutine that moves marker and determines if 

space moved to is empty. 

MAIN VARIABLES 

AX.AY Player A's current coordinates. 

BX.BY Player B's current coordinates. 

A A's marker (numeric value of graphics character). 

B B's marker. 

S Starting address of CRT memory area. 



OBSTACLE 


183 


AD.BD 


Current direction that A and B are going (1 = up. 




2 = down, 3 = left, 4 = right). 


E 


Graphics character for edge of playing field. 


R$ 


Character being read from keyboard; also work 




variable. 


CO 


Starting address of CRT color map. 


AC 


Color of A's marker. 


BC 


Color of B's marker. 


X,Y 


Temporary work coordinates. 


AR.BR 


Result of A's and B's moves (O = okay, 1 = loser). 


A$,B$ 


Names of players A and B. 


Z 


Graphics character for collision. 


J,K 


Subscript variables. 



SUGGESTED PROJECTS 

1 . Keep score over a seven game (or so) match. Display the cur- 
rent score after each game. Don't forget to allow for ties. 

2. Modify the program to let each player press only two keys — 
one to turn left from the current direction of travel, and one 
to turn right. 

3. Instead of a game between two people, make it a game of a 
person against the computer. Develop a computer strategy 
to keep finding open areas to move to and/or to cut off 
open areas from the human opponent. 

4. Change the size of the playing field. The 39 in line 950 is the 
width and the 22 in line 970 is the height. Note that line 160 
has the starting coordinates of the two players (AX, AY, 
BX, and BY). You may want to change these if you make 
the field smdler. 
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ROADRACE 



PURPOSE 

Imagine yourself at the wheel of a high-speed race car winding 
your way along a treacherous course. The road curves unpre- 
dictably. To stay on course, you must steer accurately or risk 
collision. How far can you go in one day? How many days will it 
take you to race cross-country? Thrills galore without leaving 
your living room. 

The difficulty of the game is completely under your control. 
By adjusting the road width and visibility conditions, ROAD- 
RACE can be made as easy or as challenging as you wish. 

HOW TO USE IT 

The program begins with a short graphics display. It then asks 
you to hit any key to begin. Next you are requested to provide 
two inputs: road width and visibility. The road width (in 
characters) can be set anywhere between 3 and 12. The degree of 
difficulty changes appreciably with different widths. A very nar- 
row setting will be quite difficult and a wide one relatively easy. 
Visibility can be set to any of four settings, ranging from "terri- 
ble" to "good." When visibility is good, the car appears high on 
the screen. This allows a good view of the twisting road ahead. 
When visibility is poor, the car appears low on the screen allow- 
ing only a brief look at the upcoming road. 

Having set road width and visibility, the race is ready to start. 
The car appears on the road at the starting line. A five-step start- 
ing light counts down the start. When the bottom light goes on, 
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the race begins. The road moves continually up the screen. Its 
twists and turns are controlled randomly. You must steer the car 
accurately to keep it on track. 

The car is controlled with the use of two keys near the lower 
left and right corners of the keyboard. Pressing the Z will cause 
the car to move to the left while pressing the / (slash) will cause a 
move to the right. Doing neither will cause the car to continue 
straight down. 

The race proceeds until the car goes "off the road." Each such 
collision is considered to terminate one day of the race. After 
each day, you are shown the number of miles achieved that day 
along with the cumulative miles achieved for consecutive days of 
the race. 

After each collision, you can proceed by pressing either C, R, 
or Q. Selecting C will continue the race for another day with the 
same road conditions. Cumulative totals will be retained. R will 
restart the race. This allows changing the road conditions and 
initializing back to day one. Q simply quits the race and returns 
the computer back to direct Basic. Either of the last two options 
will produce a display of the average miles travelled per day for 
the race. 

There are several different ways to challenge yourself with the 
program. You can try to see how far you get in a given number 
of days. You might see how many days it takes you to go a given 
number of miles— say 3000 miles for a cross-country trip. As 
you become proficient at one set of road conditions, make the 
road narrower and/or the visibility poorer. This will increase the 
challenge. Different road conditions can also be used as a han- 
dicapping aid for two unequally matched opponents. 
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SAMPLE RUN 




The program displays the logo and begins the short input phase. The 
operator selects a course with a 7 character road width. 




The operator selects a course with fair visibility. 
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The car is on the starting line. The starting light counts down the begin- 
ning of the race. When the last light goes on, the race will be off and 
running. 




The operator, steering the car from the keyboard, finally crashes. A 
distance of 118 miles is travelled on this leg for a total of 133 miles in 2 
days. The options for continuing are displayed while the program waits 
for the operator's choice. 
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PROGRAM LISTING 

REflDV. 



100 REM: ROnriRflCE 

110 rem: COPVRIGHT 19S3 

111 REM: PHIL FELDMRH. TOM RUGG.. RNLi 

112 REM: WESTERN SYSTEMS GROUP 
120 Q=0:Q$="" 

125 CS=54272 

130 l_C=.4:RC=l-LC 

1 40 RS= 1 67 : LS= 1 65 : LT=206 : RT=205 

150 L*="Z" :Rt== 

1 60 B=3S : PC= 1 02 : EL=2 : ER=3? 

165 POKE 53280.. 8: POKE 53281 .. 2 : PRINT CHRfCS::' 

170 GOSUE Si30 

2:30 PR I NT : PR I NT : T=0 : N=0 

210 INPiJT"RORIi WIDTH C3-12::'".;W 

220 W==INT<W::' : IF W<3 OR W>12 THEN 210 

230 PRINT :PRINT"VISIEi;_ITV CONDITIONS" 

240 PRINT" 1 - TERRIBLE" 

250 PRINT" 2 -■ BAD" 

260 PRINT" 3 - FRIR" 

270 PRINT" 4 ~ GOOD": PR I NT 

280 INPUT" VISIEILITV a-4;' " ,; V : V=INT<V) 

290 IF V<1 OR V>4 THEN 230 

295 POKE 532S0..S:POKE 53281.2 

300 N=N+1 :L=14:R=L+W+2:Z=2S64-120*V 

310 c=int(:(:l+r;'/2;'+i 

320 FOR J==l TO 26: GET Qt:GCSUB 600: NEXT 
330 i2=RND<-TI > GOSUE 700 
350 a«RND<l> 

355 IF Q>RC AND R<ER THEN GOSUE S40 : GOTO 490 
360 IF QCLC RND L>EL THEN GCSUB 620 : GOTO 400 
370 GOSUE 600 

400 fl=PC:GCT a*: IF Q$=L$ THEN C=C~1 
410 ZC=Z+C:IF Q$=R$ THEN C=C+1 

429 Q=PEEK-::ZC> : IF QOB THEN R=17e 

430 POKE 20.. R: POKE ZC+OS.. 1 : IF R=PC THEN 350 
440 H=TI~H;IF H<0 THEN H==H-!-5 1 84306 

450 M==INT'::H/ie:> :T=T-!-M:FRINT 

460 print"Vou went";m"miles for R" 

470 pr i nt " tctrl of " .: t .: " m i les i n " ; n ; " drv < s " : pr i nt 

480 print "hit - continue rrce" 

4.90 print" '-r-' - restart rrce" 

500 .frint" 'q' - quit 

510 get q*:if g*="c" then 300 

520 if q*<>"r" rnd c$<>"q" then 510 

530 print : prikt"avcrrge miles per drv=";t/h 

540 if q*="r" then 200 

559 ENE 

600 PRINT TflE-::L:).;CHR*(:R3>.;CHRS';:R3:^.; 



i 
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S05 PR 1 NT "mil ':: R > .; CHRsl- <. LS > .; Cf-!R$ •:: L.3 ) 
616 RETURN 

620 PR I NT TnP C L ::■ .; CHR* •:: LT > .: CHR* < LT > ; 
S£5 PR I NT 7 fit ■:: R - 1 > .; CHR* < LT > ; CKR* LT 
638 L=L--:l. • R=R--1 ■ RETURN 
640 PR I NT TAB < L-:- 1 .. CnRf ■: RT ') .: C^HR* ■:: RT ::• ; 
645 PR I HT THE C R > ; CHR* ( RT > .: CHm < RT > 
658 L=L+1 -.R^R+l : RETURN 

700 POKE Z-:-C..PC:PCKE Z-^-C-:-OC.. 1 ^ P=Z £32 

7i0 POKE P.. 35: POKE p-'-OS.. 1 :POKE P-M.. 64 

7£0 POKE r + 1+03.. 1 :PCKE P-i-2.. 73 : POKE P+2+CS.. 1 

730 FOR J=l TO 5: POKE F-i-4e?W.. : POKE P+40*J+CS.. 1 

740 POKE P+40*.J-i-l.. S7:P0KE P+40*..;+:l.-!-OS.. 1 

750 POKE Pi4e*J-i-2,.::?3:pnKE P+40*J+2+OS. 1 

760 NEXT: POKE P+£4e. 74 : POKE P+£4g"'-0S.. J. 

770 POKE P+£41..S4:pnKE P-^24i+CS.. 1 ^ POKE P+242.75 

700 POKE P+242+0S. 1 :rOR J-l TO S'00 : NEXT 

790 FOR J=l TO 5: FOR K=l TO 480 : NEXT 

735 POKE P+40*J+1 . Si : NEXT ■ H=TI : RETURN 

300 DIM rCE?) :L=14:R=22:F0KE 53231,. 1 

305 PRINT CHR*<147>.; :PCKE 53231.. £ 

313 FOR J=l TO 3;RERi: ]KJ>:NEXT 

829 CRTR 1 3 .. 1 5 . 1 .. 4 .. 1 3 , 1 .. 3 .. 5 .. 42 

S30 FOR J==l TO 2:G03UE 630 : NEXT 

840 FOR J==l TO S^GOSUE 643 : NEXT 

350 FOR J«l TO 5:G0SUB 620 ^ NEXT 

360 FOR J=l TO 10:GOSUE 648 : NEXT 

370 P= •.042: POKE p,pc 

330 FOR .;r=l TO 500 : NE;<T 

890 FOR J=l TO £:P=P-:-40:GCSUE 953 : NEXT 

900 FOR J=l TO 3:P=P+41 :0C3UE 953 : NEXT 

910 FOR .J=l TO 4:p=P+39:G0SUB 958 : NEXT 

920 P=F+40:GOSUB 950 

930 FOR J=l TO 9:P~=P+41 :CCSUB 950 

940 POKE P .. D J ::■ : NEXT : PR I HT : RETURN 

950 POKE P.. PC: FOR K=l TO 59 : NEXT : RETURN 

REREV. 



EASY CHANGES 

1 . The keys which cause the car to move left and right can be 
easily changed. You may wish to do this if you find that two 
widely separated keys are less convenient. The changes are 
to be made in line 150. Left and right movements are con- 
trolled by the two string variables L$ and R$. If, for exam- 
ple, you wanted 1 to cause a left move and 9 to cause a right 
move, change line 150 to read 

150 L$ = "1":R$ = "9" 
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2. The amount of windiness in the road can be adjusted by 
changing the value of LC in line 130. Maximum windiness is 
achieved with a value of 0.5 for LC. To get a straighter 
road, make LC smaller. A value of 0. will produce a com- 
pletely straight road. LC should He between 0. and 0.5 or 
else the road will drift to one side and linger there. To get a 
somewhat less winding road, you might change line 130 to 
read 

130 LC = 0.3:RC = 1-LC 



MAIN ROUTINES 


120-170 


Variable initialization. 


200-290 


Gets road conditions from user. 


300-330 


Initializes the road. 


350-370 


Determines the next road condition. 


400-430 


Updates the car position. 


440-450 


Processes end of race day. 


600-650 


Draws next road segment. 


700-795 


Graphics to begin race. 


800-950 


Initial graphics display. 


MAIN VARIABLES 


W 


Road width. 


V 


Visibility. 


M 


Miles driven on current day. 


N 


Number of days of the race. 


T 


Total miles driven for whole race. 


H 


Elapsed time during race. 




String characters to move car left, right. 


L,R 


Position of left and right sides of road. 


LC.RC 


Random value cutoff to move road left, right. 


EL,ER 


Leftmost, rightmost allowable road position. 


Q$ 


User replies. 


C 


Screen location of car. 


RS,LS, 




LT.RT 


Arguments of CHR$ for road segments. 


B,PC 


POKE arguments for graphics. 


A,P 


POKE arguments. 


D 


Array of POKE arguments for display message. 
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J,K,Q Loop indices and work variables. 
Z,ZC POKE arguments for car location. 

SUGGESTED PROJECTS 

1 . Write a routine to evaluate a player's performance after each 
collision. Display a message rating him anywhere from "ex- 
pert" to "back seat driver." This should involve comparing 
his actual miles achieved against an expected (or average) 
number of miles for the given road width and visibility. For 
starters, you might use 

Expected miles = + (10*V) - 35 

This formula is crude, at best. The coding can be done be- 
tween lines 550 and 600. 

2. Incorporate provisions for two players racing one at a time. 
Keep cumulative totals separately. After each collision, dis- 
play the current leader and how far he is ahead. 

3. Add physical obstacles or other hazards onto the road in 
order to increase the challenge. This can be done with ap- 
propriate POKE statements before the various RETURNS in 
lines 600-650. The program will recognize a collision if the 
car moves into any non-blank square. WARNING— Be sure 
the address arguments of any POKEs lie between 1024 and 
2023. Anything else may result in hanging up your system or 
other strange occurrences. 



WARI 



PURPOSE 

Wari is an old game with roots that are much older. Its origins 
go back thousands of years to a variety of other similar games, 
all classified as being members of the Mancala family. Other 
variations are Awari, Oware, Pallanguli, Kalah, and countless 
other offshots. 

The program matches you against the computer. You are 
probably going to lose a few games before you win one— the 
computer plays a pretty good game. This may hurt your ego a 
little bit, since Wari is purely a skill game (like chess or 
checkers). There is no element of luck involved, as would be the 
case with backgammon, for example. When you lose, it's be- 
cause you were outplayed. 

HOW TO USE IT 

When you start the program, the first thing it does is display 
the Wari board and ask you if you want to go first. The board is 
made up of twelve squares in two rows of six. Your side is the 
bottom side, numbered one through six from left to right. The 
computer's side is on the top, numbered seven through twelve 
from right to left. 

At the start of the game, each square has four "stones" in it. 
There is no way to differentiate between your stones and the 
computer's. They all look alike and will move from one side to 
the other during the course of play. 

The first player "picks up" all the stones in one of the squares 
on his side of the board and drops them, one to a square, start- 
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ing with the next highest numbered square. The stones continue 
to be dropped consecutively in each square, continuing over 
onto the opponent's side if necessary (after square number 12 
comes square number 1 again). 

If the last stone is dropped onto the opponent's side and leaves 
a total of either two or three stones in that square, these stones 
are captured by the player who moved, and removed from the 
board. Also, if the next-to-last square in which a stone was 
dropped meets the same conditions (on the opponent's side and 
now with two or three stones), its stones are also captured. This 
continues backwards until the string of consecutive squares of 
two or three on the opponent's side is broken. 

Regardless of whether any captures are made, play alternates 
back and forth between the two players. 

The object of the game is to be the first player to capture 
twenty-four or more stones. That's half of the forty-eight stones 
that are on the board at the beginning of the game. 

There are a few special rules to cover some situations that can 
come up in the game. It is not legal to capture all the stones on 
the opponent's side of the board, since this would leave the op- 
ponent with no moves on his next turn. By the same token, when 
your opponent has no stones on his side (because he had to move 
his last one to your side on his turn), you have to make a move 
that gives him at least one stone to move on his next turn, if 
possible. If you cannot make such a move, the game is over and 
counted as a draw. 

During the course of the game, it's possible for a square to ac- 
cumulate twelve or more stones in it. Moving from such a square 
causes stones to be distributed all the way around the board. 
When this happens, the square from which the move was made 
is skipped over. So, the square moved from is always left empty. 

It takes the computer anywhere from five seconds to about 
forty seconds to make a move, depending on the complexity of 
the board position. The word THINKING is displayed during 
this time, and a period is added to it as each possible move is 
evaluated in sequence (seven through twelve). 
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SAMPLE RUN 




The program starts off by drawing the playing board and asking who 
should move first. The operator decides to go first. 




The program asks for the operator's move. He or she decides to move 
square number 5. The program alters the board accordingly, and begins 
"thinking" about what move to make. 
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COWUTFR 



12 11 18 



4 


e 


3 


1 


4 




8 


2 


1 


1 


1 


1 



CAPTURED 
COMPUTER 19 
VOU 8 



VOU 



VOUR nOUE? 1 
THINKING . . 



Later in the same game, the computer is about to move square number 
12, which will capture 7 more stones and win the game. 

PROGRAM LISTING 

RERDV. 



100 REM: WRRI 

110 rem: COPVRICHT 1983 

111 REM: TOM RIJGG.. PHIL FELDMRH.. RHD 

112 REM: WESTERN SVSTEMS GROUP 

120 J-1 -K-l :Q==14:P = 13:F=5e: 11=12 

125 POKE 53280.. 2: POKE 53281 ,. S' : PRINT CHR$<5> 

130 D I M T Q > V ( Q ) ,. W Q ) .. V < 6 .. E < 6 :> .. B t Q > 

1 40 m=R\uJ ■:: -T I ) : WB=RND <.!'>■ WB=WE/Q 

1 45 WR= „ 25+I..JE : WE= . 25--WE : GOSUE 750 

150 FOR J=l TO D:B';j>=4:NEXT 

155 B C P > =0 : E C Q =0 : MH=0 : GOSUE 3. 20i2: : GOiJiJE 3B0 

160 GOSUE S'90 : INPUT "WfiNT TO GO FIRST" ;R$ 

170 eCSUB S'S-©: PRINT D* : R*=LEFT*';R*.. 1 > 

175 IF Rili:="V" THEN 250 

180 IF R*<>"N" THEN 168 

190 G0:3UB 105©: PRINT E*; E*:.: D* : GOSUE 1050 
192 PR I NT " TK I HK I HG : GCSUB 5 1 
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1.95 IF M<1 THEN 2000 

£00 GOSUE 10S0: PRINT D* : GOSUB 1050 

205 PRINT"MV MOVE IS".;ri 

210 FOR J=l TO Q:T<J>=B<J::' : next: GOSUE 358 
220 FOR J=l TO Q:B(:J?=T'::J> :NEKT:G0SUB 909 
230 IF B<G!;'<24 THEN 250 

240 GOSUE 105e:FRIHT"I WI H ! " D* : GOTO SIS 
250 GOSUE 9SQ-FRIHT E$.:D*: GOSUE 330 
255 I NPUT " VOUR MOVE " J R* 

260 M=IHT'::VflL';R$>> : IF r'1>6 OR M<1 THEN 33© 

270 FOR J=l TO Q:T<J)=ECJ> :HEXT 

280 GOSUE 350: IF M<g -pHEN 330 

290 FOR J=l TO Q:BU>=T':;J> :NEXT 

300 MK=MN+1 : GOSUE 900 

310 PRINT: IF E':;P)<24 THEN 190 

320 GOSUE 1 050 : PR I NT " VGU W I N ! " D* : GOTO S 1 

330 GOSUE 990: PRINT TFlBaS) ; CHR*< 185 .;" ILLEGAL" 

340 FOR J=l TO 3000 : NEXT : GOTO 250 

350 IF Ta'l'-'=0 THEN M=~i: RETURN 

360 R*="H":IF ri>6 THEN Rir.= " C " : GOTO 3S0 

370 FOR J=l TO 0: VCJ>=T<J> : NEXT: GOTO 400 

380 FOR J=l TO «: V(:j)=T'::j-r6::' :V<J+6;'=T<J> :NEXT 

390 V < p > =T < la ) : V t: e J ==T c p > : m=m-6 

400 C=M:N=V0::;' :FOR J=l TO N:C=C+1 

410 IF .C=P THEN C=l 

420 IF C=M THEN C=C^-l:GOTC 410 

430 V C C y == V o; -i- 1 : NEXT : V •:: M > =0 : L=C 

440 IF L<7 OR V'::l:/>3 OR V';L-'<£ THEN 460 

450 V C P :? =V P > V ( L > : V C L =0 : L"L - 1 ■ Gij TC 440 

460 3=0: FOR J=7 TO E : S=S-!-V<: j;' : NEXT 

470 IF S=0 THEN M=~2 : RETURN 

480 IF R*="H" THEN FOR J=l TO Q : T(:j>=V ■:..!>: NEXT 
485 IF Rit:="H" THEN RETURN 

490 FOR J=l TO 6:T<J>=V<J+6> :T';j+6:'=V'..J> :NEXT 

500 T < Q ■;■ = V < P : T < P :? = v < Q :> : RETURN 

510 FOR l"l=l TO 6:M=R+S 

520 IF Eai)=0 THEN Ec;R>=-F : GOTO 690 

530 FOR J=l TO G:T':J)=B(:J:j : NEXT: GOSUE 350 

540 IF M<0 THEN E<fl>=-F:GOTO 630 

550 IF T(Q>>23 THEN M=n-i-6 : RETURN 

560 FOR .T==l TO Q:W<J>aT<J>: NEXT: FOR K=l TO 6 

570 IF T(:k:>=--0 THEN V'::i<>=F:GOTC 670 

580 FOR J^=l TO Q : TC. J J> : NEXT: M=K: GOSUE 350 

590 IF M<0 THEN Va<>=F:GCTO 670 

600 FR=0:F3=.05:FC=0:FD=0:FOR J=7 TO D 

610 FE=FE+T< j;. : IF T<J»0 THEN Ffl--=FR+i 

620 IF TCJXS THEN FC=FC+1 

6:30 IF T<:J>>FD THEN FI3=T<J> 

640 NEXT : FE=FE : FOR J= 1 TO 6 : FE=FE+T J : NEXT 
650 Ffl=Ffi/6 : FD= 1 -FB/FB : FC= 1 -FC/6 : FB=FE/FE 



i 
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6€0 V <. K : WR* ( FR+F3 ) •■!.;.,I3* < FC+FE > +T ■'. 9. ::■ +E C P ; B ■:: Q ) ■■■-T < P 

670 NEXT:E:<:fl)=F 

675 FOR J=l TO 6; IF VCJXECRJ THEi'-i EvR>=y ■:;.;> 
680 NEXT 

€90 PRINT" .*•; : NEXT : M-0 : n«-F : FOR J=l TO S 
700 IF E'::J;:0-R THEN R=E< J^' : M=J-!-6 
710 NEXT: RETURN 

750 m--" "-rOR ■:;=! to £4:a*=R$+C::HR*a64> ^WEXT 
760 E*=CHR$a.67> :F0R J=1 TO 6 
765 =E$+ " " -i-CHR* (167): NEXT 
770 C*=CHRir<167> :F0R J==1 TO 6 

780 C*=C*+CKR* ■:: 1 64 ) ■■!-i:::i-!R$ •:, 1 64 z -h;;|-!R::|; c i §4 :> +:;:HR:? C 1 86 > 
790 NEXT ■ C*»" " ■- FOR J= 1 TO 5 ■ B*=Df+B$ : NEXT 
S00 RETURN 

818 print: J=RBS<:B<P>-S<C)> : IF J<10 THEN G38 
820 PRINT" IT WRSN'T EVEN CLOSE !": GOTO 840 
830 PR I NT "0003 CRME ! " 

649 PRINT : INPUT "URNT TO PLRV RGRIN".:R* 

850 R*"=L.EFT$':R$.. 1) : IF Ri|i:=="V" THEN 140 

S60 IF R*<>"N" THEN 840 

870 PRINT: PRINT :PRINT"SEE yOU L.RTER" 

880 PRINT: PRINT: END 

900 PRINT CHR*aSO; 

910 FOR J=l TO 4: PRINT CKR* ■:; 17:> : NEXT 

320 FOR J=0 TO 5: PRINT TaBC4*J+l > ; B< 12-J> ; 

925 IF B<12-J>=0 THEN GOSUB 1100 

930 NEXT : PR I NT TRB < 27 > ; " CONPU TEf? " ; B ■:, G ::• 

940 PRINT CHR*vi7>:F0R J=0 TO 5 

950 PRINT TRB':;4*J-i-l>.:B';:J+i;:. : 

955 IF Ba'+1>=0 THEN GOSUB 1103 

960 NEXT : PR I NT TRB < 32 > ; " VOU " ; E < P ) 

970 RETURN 

990 PRINT CHR*<19>; 

13;3e FOR J==l TO 9 : PRINT CHR*a7>:NEXT 
1010 RETURN 

1 050 GOSUB 990 : PR I NT CHR* < 17> ■ RETURN 

1100 PRINT cHR*as7); " ".; 

1110 RETURN 

1200 PRINT CHR*a47>;TREa6>.: "W R R I" 

1210 PR I NT TAB a 5 > LEFT* C R* .. 8 ;■ : PR I NT 

1 220 PR I NT TRB <. 8 .: " COMPUTER " : PR I NT 

1239 FOR J=0 TO 5: PRINT TRE(:4*J-!-l .; 12-J; : NEXT 

1248 PRINT TRB'CSe:).; "CRPTUREB" 

1 245 PR I NT R* TRB C 29 > ; LEFT* ( m . 9 J : FOR .;= 1 I'C 2 

1250 PRINT E*: PRINT B*: PRINT C* : NEXT : '-RINT 

1260 FOR JaO TO 3: PRINT TRB < 4*.J+1 ); J+l ;: NEXT 

1 £70 PR INT: PR I NT : PR I NT TRB C 1 1 > ,: " VOU " 

1280 PRINT: RETURN 

2008 PR I NT "NO LEORL I'lOVES. " 

2810 PRINT"GnME IS R DRAW. " 

2020 GOTO 840 
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EASY CHANGES 

1 . Want a faster moving game against an opponent who isn't 
quite such a good player? Insert the following two lines: 

555 GOTO 600 

665 E(A) = V(K):GOTO 690 

In the standard version of the game, the computer looks at 
each of its possible moves and each of your possible replies 
when evaluating which move to make. This change causes 
the computer to look only at each of its moves, without 
bothering to look at any of your possible replies. As a result, 
the computer does not play as well, but it takes only a few 
seconds to make each move. 

2. If you are curious about what the computer thinks are the 
relative merits of each of its possible moves, you can make 
this change to find out. Change Hne 690 so it looks Uke this: 

690 PRINT E(A);:NEXT:M = 0:FA= -F:FOR J = 1 TO 6 

This will cause the program to display its evaluation number 
for each of its moves in turn (starting with square seven). It 
will select the largest number of the six. A negative value 
means that it will lose stones if that move is made, assuming 
that you make the best reply you can. A value of negative 50 
indicates an illegal move. A positive value greater than one 
means that a capture can be made by the computer, which 
will come out ahead after your best reply. 



MAIN ROUTINES 



120- 


155 


160- 


180 


190- 


220 


230- 


240 


250- 


300 


310- 


320 


330- 


340 


350- 


500 


360- 


390 


400- 


430 



Initializes variables. Displays board. 
Asks who goes first. Evaluates answer. 
Determines computer's move. Displays new board 
position. 

Determines if computer's move resulted in a win. 
Displays a message if so. 

Gets operator's move. Checks for legality. Displays 
new board position. 

Determines if operator's move resulted in a win. 
Displays message if illegal move attempted. 
Subroutine to make move M in T array. 
Copies T array into Y array (inverts if computer is 
making the move). 
Makes move in Y array. 
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440- 450 Checks for captures. Removes stones. Checks 

previous square. 
460- 470 Sees if opponent is left with a legal move. 
480- 500 Copies Y array back into T array. 
510- 710 Subroutine to determine computer's move. 
750- 800 Subroutine to create graphics strings for board 

display. 

810- 880 Displays ending message. Asks about playing again. 

900- 970 Subroutine to display stones on board and cap- 
tured, and "cross-bars" of board squares. 

990-1010 Subroutine to move cursor to "YOUR MOVE" 

position on screen. 
1050 Subroutine to move cursor to "MY MOVE" posi- 

tion on screen. 

1100-1110 Backspace cursor 1 space and display 1 blank 
character. 

1200-1280 Subroutine to display Wari board (without stones), 

titles, and square numbers. 
2000-2020 Displays message when computer has no legal 

move. 



MAIN VARIABLES 



J,K Subscript variables. 

Q,P,F,D Constant values of 14, 13, 50 and 12, respectively. 

T,Y,W Arrays with temporary copies of the Wari board. 

V Array with evaluation values of operator's six possi- 

ble replies to computer's move being considered. 

E Array with evaluation values of computer's six 

possible moves. 

B Array containing Wari board. Thirteenth element 

has stones captured by operator. Fourteenth has 
computer's. 

WA,WB Weighting factors for evaluation function. 
MN Move number. 

R$ Operator's reply. Also used as switch to indicate 

whose move it is (C for computer, H for human). 

M Move being made (1-6 for operator, 7-12 for com- 

puter). Set negative if illegal. 

C Subscript used in dropping stones around board. 

L Last square in which a stone was dropped. 
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S Stones on opponent's side of the board after a 

move. 

A Subscript used to indicate which of the six possible 

computer moves is currently being evaluated. 

FA First evaluation factor used in determining favora- 

bility of board position after a move (indicates com- 
puter's number of occupied squares). 

FB Second evaluation factor (total stones on 

computer's side of the board). 

FC Third evaluation factor (number of squares with 

two or less stones). 

FD Fourth evaluation factor (number of stones in most 

populous square on computer's side). 

FE Total stones on board. 

A$,B$.C$ String of graphics characters used to display the 

Wari board. 
D$ String of 32 blanks. 

SUGGESTED PROJECTS 

1 . Modify the program to declare the game a draw if neither 
player has made a capture in the past thirty moves. Line 3(X) 
adds one to a counter of the number of moves made. To 
make the change, keep track of the move number of the last 
capture, and compare the difference between it and the cur- 
rent move number with 30. 

2. Modify the evaluation function used by the computer 
strategy to see if you can improve the quality of its play. 
Lines 600 through 660 examine the position of the board 
after the move that is being considered. Experiment with the 
factors and/or the weighting values, or add a new factor of 
your own. 

3. Change the program so it can allow two people to play 
against each other, instead of just a person against the 
computer. 
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Section 4 

Graphics Display 
Programs 

INTRODUCTION TO GRAPHICS DISPLAY PROGRAMS 

The Commodore 64 is an amazing machine. It has very useful 
color graphics capabilities in addition to its other capacities. 
Programs in the other sections of this book take advantage of 
these graphics to facilitate and "spice up" their various output. 
Here we explore their use for sheer fun, amusement, and 
diversion. 

Ever look through a kaleidoscope and enjoy the symmetric 
changing patterns produced? KALEIDO will create such effects 
to keep you hypnotized. 

Two other programs produce ever changing patterns but with 
much different effects. SPARKLE will fascinate you with a 
changing shimmering collage. SQUARES uses geometric shapes 
to obtain its pleasing displays. 

WALLOONS demonstrates a totally different aspect of the 
computer. This program will keep you entertained with an ex- 
ample of computer animation. 
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KALEIDO 



PURPOSE 

If you have ever played with a kaleidoscope, you were prob- 
ably fascinated by the endless symmetrical patterns you saw dis- 
played. This program creates a series of kaleidoscope-like 
designs, with each one overlaying the previous one. 

HOW TO USE IT 

There is not much to say about how to use this one. Just type 
RUN, then sit back and watch. Turning down the lights and 
playing a little music is a good way to add to the effect. 

Have a few friends bring their Commodore 64's over (all your 
friends do have Commodore 64's, don't they?), and get them all 
going with KALEIDO at once. Let us know if you think you 
have set a new world's record. Please note that we will not be 
responsible for any hypnotic trances induced this way. 
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SAMPLE RUN 




One of the patterns generated by the KALEIDO program. 



PROGRAM LISTING 

RERDV. 



100 rem: kale I do 

110 REM: COPVRIOHT 1983 

111 rem: TOM RUCG.. PHIL FELDMflH.. F,Ht 

112 rem: western svstems group 

1 28 R=RND -T I > : PR I NT CHR* a 47 

1 30 n= 1 3 : B= 1 2 : :5= i £24 : ];:=- 1 : 0=55235 

135 M=63:PCKE 53280.. 1 : POKE 53231.. S 

140 DIM R<6> 

150 FOR J~<d TO 6 

160 T=65 

165 IF RHD<1>>.5 THEN 1=1+123 

170 R CT > = I NT < M*RND < 1 ) +T •• NEXT 

1 80 11= 1 : l<= 1 : L= 1 2 : I F SO THEN K= 1 £ : L== 1 

200 FOR J«K TO L STEP XJ 

210 X=fl+J: V=B:G0SUE 900 

220 X=fl-J : OCSUB 300 

230 X=n:V=B+.J:eCSUE 300 

240 V=B-J:GOSUB 300 
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250 ■;< ■■H-J : V=E+.J : GCSUE 5'00 

26& J' : V=E-.J : GOSUB 98© 

270 v=BH-j : eosuE sm 

286 X»fl+J : V«B-J : GCSUB 900 
790 NEXT 

795 FOR J==l. TO 2000 : NEXT J 
i300 GOTO 150 
900 Cl = INT'::RNri'::i>*14)-M 
905 POKE C+40*V+X..C1 
910 POKE S+40*V+X..R';0> 
915 IF J=l THEK RETURN 
920 W= I NT J* . 5 > : T=J~W- 1 
930 FOR N=l TO W 

940 IF X=fl THEN V2=V ; X2-X-I-N : GOSUB 2000 

945 IF X=fl THEN X2=X-N : OCSUB 2S00 : NEXT : RETURN 

950 IF V=B THEN X2=X : V2=V+N : GOSUE 2000 

955 IF V=E THEN V2==V-N : GOSUB 2009 : NEXT = RETURN 

970 V2™V:IF X<R THEN X2=X+N : GCSUE 2000 M;;r:Tn 95© 

980 ;<2=;v-N : GOSUE 2006 

990 X2=X:IF V<E THEN V2™V+N : GOSUB 2G80 : GOTO 1010 
1000 V2=V-N: GOSUE 2000 
1010 NEXT 
1028 RETURN 

2000 POKE S+40*V2+X2.R<N> 

2005 POKE C+40M«V2+X2.C1 
2010 RETURN 

REfiDV. 

EASY CHANGES 

1. Change the first part of Hne 180 to say D = - D instead of 
D = 1 . This will cause alternating inward and outward draw- 
ing of the designs rather than always outward from the 
center. 

2. In line 795, change the constant of 2000 to 10000. This will 
cause a delay of about fifteen seconds between the drawing 
of successive design instead of three seconds. Or, remove 
line 795 to eliminate the delay entirely. 

3. Modify the range of graphics characters from which the 
ones in the design are randomly selected. This is done by 
modifying the values of M and T in lines 135 and 160. For 
example, try 

M= 5 and T= 76 
or M = 30 and T= 76 
or M = 12andT=116 
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Experiment with other values. Be sure that M and T are both 
positive integers, that T is at least 65, and that the sum of M 
and T is no greater than 128. 

4. Eliminate reverse graphics characters by deleting line 165. 
Or, lower the frequency of use of the reverse graphics 
characters by increasing the value of .5 in Une 165 to, say, .8 
or .9. Similarly, you can increase the frequency of use of 
reverse graphics characters by lowering the .5 to .1 or .2. 

5. You can change the designs into ones with only four point 
symmetry by doing the following: 

1. In lines 140 and 150, change the 6 to a 12. 

2. In line 930, change the W to a J. 

3. Insert this line 

245 GOTO 790 



MAIN ROUTINES 

120- 140 Housekeeping. Initializes variables, RND. 
150- 170 Picks seven random graphics characters. 
180 Selects D, K, and L to draw patterns inward or 

outward. 

200- 790 Mainline routine. Determines axes of pattern. 
795 Delays about three seconds after drawing design. 

900-1020 POKEs graphics character into axes of design, then 

determines coordinates of points between axes. 

Generates random color. 
2000-2010 POKEs characters and colors between axes 

(subroutine). 



MAIN VARIABLES 



A,B Coordinates of center of design. Upper left corner 

is considered to be (0,0). 
S Starting address of CRT memory map area. 

D Direction in which design is drawn (1= outward, 

- 1 = inward). 

R Array for the seven random graphics characters. 

J,N Subscript variables. 

T Numeric representation of lowest graphics 

character to be used. 
K,L Inner and outer bounds of design (distance from 



center). 
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X,Y Coordinates of character being POKEd on horizon- 

tal, vertical, or diagonal axes. 

X2,Y2 Coordinates of character being POKEd between 
horizontal, vertical, or diagonal axes. 

M Number of possible graphics characters to choose 

from, not counting reverses. 

C Starting address of CRT color map. 

CI Random color of graphics character. 
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SPARKLE 



PURPOSE 

This graphics display program provides a continuous series of 
hypnotic patterns, some of which seem to sparkle at you while 
they are created. Two types of patterns are used. The first is a set 
of colored concentric diamond shapes in the center of the screen. 
Although the pattern is somewhat regular, the sequence in which 
it is created is random, which results in the "sparkle" effect. 

The second type of pattern starts about two seconds after the 
first has finished. It is a series of "sweeps" across the screen— 
left to right and top to bottom. Each sweep uses a random 
graphics color that is spaced equally across the screen. The spac- 
ing distance is chosen at random for each sweep. Also, the 
number of sweeps to be made is chosen at random each time in 
the range from 1 1 to 30. 

After the second type of pattern is complete, the program goes 
back to the first type, which begins to overlay the second type. 

HOW TO USE IT 

Confused by what you just read? Never mind. You have to see 
it to appreciate it. Just enter the program into your Commodore 
64, then sit back and watch the results of your labor. 
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SAMPLE RUN 




One of the patterns generated by the SPARKLE program. 



PROGRAM LISTING 

REflDV. 



100 REM: SPRRKLE 

110 REM: COPVRIGI-IT 1383 

111 REM: TOM RUGG.. PHIL FELDMRH.. RND 

112 REM: WESTERN SYSTEMS GRGUP 
1 20 R-RHB ~T I > : PR I NT CHR$ C 1 47 > 
125 POKE 53280.1: POKE 532S1..0 

130 DIM na2;'..E<12> :n=13:B=12 :S=»1024: 01=55236 

1 40 T= I NT 37*RND < 1 ) > +66 

150 FOR J=0 TO 12:rH';j>=..T:E^J><r:HEKT 

160 FOR ..T=0 TO 12:R=IHTa3*:RHria;') 

1 70 W=R <: J > : R c: J ) =R < R > : R < R > =W : NEXT 

180 FOR J=0 TO 12:R=INTa3*RNC<l)> 

190 w=b<:j) :eu>=e<:r) :E<R>=W:NEXT 

200 FOR J=0 TO 12: FOR k=0 TO 12 
210 R=R < J ) : W=E < K> : C=R+W+T 
240 X=R+R : V=E+W : OOSUE 980 
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250 V=B W;GnSUB 900 

260 X=fl--R:GOSIJE 900 

270 V=B+W:GOSUE 900 

2S0 X=R+W:V=B+R:G0SU3 900 

290 V=E--R:GOSUE 900 

300 K=R-U:C03UB 900 

310 V=E+R:G0SUE 900 

320 next: NEXT 

350 FOR J=l TO 2000: NEXT 

400 N=65:M=63 

410 FOR J=l TO :HT':;21*RKI!a)> + l0 

420 R== I NT •: 22*RHD < 1 > > + 1 ■ W= I NT < M*RND <1>> 

430 T=S:IF RNDa>>.8 THEN T=T+1 

432 C2 - IWTCRNDa. ::'*14::' + 1 

434 POKE C1..C2 

440 POKE S.. N-i-W 

450 FOR K=T TO T+999 STEP R 

452 C2 = IHT';:RHEa>*14> + l 

455 POKE C1 + .;k~T::'..C2 

460 poke k..n+w:next 
470 ne;<t 

480 GOTO 140 

900 C2 = INT''RND'::1>*14> + 1 
920 POKE C1+40*V+X..C2 
930 POKE S+40*V+X..C 
940 RETURN 

RERDV. 



EASY CHANGES 

1. Make the second type of pattern appear first by inserting 
this line: 

135 GOTO 400 
Or, eliminate the first type of pattern by inserting: 

145 GOTO 400 
Or, eliminate the second type of pattern by inserting: 

360 GOTO 140 

2. Increase the delay after the first type of pattern by increas- 
ing the 2000 in line 350 to, say, 5000. Remove line 350 to 
eliminate the delay. 

3. Increase the number of sweeps across the screen of the sec- 
ond type of pattern by changing the 10 at the right end of 
line 410 into a 30 or a 50, for example. Decrease the number 
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of sweeps by changing the 10 to a 1, and also changing the 
21 in line 410 to 5 or 10. 

4. Watch the effect on the second type of pattern if you cheinge 
the 22 in line 420 into various integer values between 2 
and 100. 

5. Change the value of N and M in line 400 to alter the graphics 
characters used in the second type of pattern. For exam- 
ple, try 

M = 5 and N = 76 
Be sure N is at least 65 and the sum of N and M is no more 
than 128. 



MAIN ROUTINES 


120-130 


Initializes variables. Clears screen. 


140-320 


Displays square pattern in center of screen. 


150-190 


Shuffles the numbers through 15 in the A and B 




arrays. 


200-320 


POKEs graphics characters to the screen. 


350 


Delays for about 2 seconds. 


400-480 


Overlays the entire screen with a random graphics 




character spaced at a fixed interval chosen at 




random. 


900-940 


Subroutine to POKE graphics character C to loca- 




tion (X,Y). Upper left corner of screen is location 




(0,0). 


MAIN VARIABLES 


R 


Random integer. Also, work variable. 


A,B 


Arrays in which shuffled integers from to 12 are 




stored for use in making first type of pattern. 


A,B 


Coordinates of center of screen (19 across, 12 




down). 


S 


Starting address of CRT memory area. 


T 


Integer from 66 to 102, used in creating random 




graphics characters. Also, work variable. 


J,K 


Work and loop variables. 


W 


Work variable. 


X,Y 


Coordinates of a position on the screen for a 




graphics character. 
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C Graphics character to be POKEd to screen at X,Y. 

N Lowest graphics character to be used in second type 

of pattern. 

M Multiplier used in getting a random integer to add 

to N. 

CI Starting location of color map. 

C2 Color for current graphics character. 



SUGGESTED PROJECTS 

Make the second type of pattern alternate between "falling 
from the top" (as it does now) and rising from the bottom of the 
screen. 
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SQUARES 



PURPOSE 

This is another graphics-display program. It draws a series of 
concentric squares with the graphics color used for each one 
chosen at random. After a full set of concentric squares is 
drawn, the next set starts again at the center and overlays the 
previous one. They are actually rectangles, not squares, but let's 
not be nit-pickers. 

HOW TO USE IT 

As with most of the other graphics display programs, you just 
sit back and enjoy watching this one once you get it started. 
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SAMPLE RUN 




One of the patterns generated by the SQUARES program. 

PROGRAM LISTING 

REflDV. 



100 rem: squares 

110 rem: copvrioht 1983 

111 REM-- TOM RUGG. PHIL FELDMflH.. flHD 

112 REM: WESTERN SVSTEMS GROUP 

120 JsRHD'^-TI^ : PRINT CHR$a47> 

121 POKE 532S0.. 1 :POI<E 532S1..0 

122 C 1 < > =5 : C 1 a > =28 : C 1 < 2 ) =30 : C 1 < 3 > = 1 56 
124 CI '::4> = 15S : CI ':5>»159 

1 30 GOSUB G00 : N= 1 : R= I NT < 50*RNI1 C 1 > > 
1 40 C= I NT <. 95*RND 1 ') > + 1 60 
150 PRINT CHR*<14S;'.; 

160 IF RNria;'>.5 then print CHRt-<18>; 
170 X=C : V=0 ; K>N : G0:3UE 70© 
l;50 N=N+1 

1 30 V= 1 45 : Z= 1 57 : K=N : GOSUB 800 
200 V=:157 : G0:5UE 800 
210 N=N+1 
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220 V=1?':|<==H:G0SUB 800 

£25 i:::2= 1 i-iJ < RHD U ) *6 ) : PR I HT CHR* <: C 1 C2 > > ; 

230 IF H<22 THEN 140 

240 GOTO 130 

600 PRINT CHR*<iSi> 

610 FOR K == 1 TO 20: PRINT CI-IR* < 23 > .: : NEXT 
620 FOR i< = 1 TO 12: PRINT CHR*':: 17;' ^ ^ NEXT 
630 RETURN 

700 FOR J=l TO K:G0S!JE 900 

7 1 PR I NT CHR* ':; X > ; CHR* •:. V > ; : NEXT : RETURN 

900 FOR J=l TO K:G0SIJE 900 

S10 PRINT CHR* X >.; CHR* CHR* ':;Z>.; 

820 NEXT : RETURN 

900 FOR W'^-1 TO R: next: RETURN 

REflDV„ 



EASY CHANGES 

1 . To eliminate the variable speed feature of the program, in- 
sert this line: 

135 R = 25 

This will cause the speed to be fixed at about the level of the 
average speed when the variable speed feature is active. In- 
stead of 25, try 1 for high speed, or 50 or 100 for low speed. 

2. To eliminate the use of reverse graphics characters in the 
display, remove line 160. 

3. To make the patterns less regular, try inserting these lines: 

802 D = 0:IF INT(J/2) = J/2 THEN D= 1 
804 X = X + D 
815 X = X-D 



MAIN ROUTINES 

120-130 Initializes variables. Clears screen. Determines 
speed for this set of squares. 

140-160 Picks random graphics character. 

170-220 Mainline routine. Draws a square using cursor con- 
trol characters. 

230-240 Determines if set of squares is done. If so, starts 

over. If not, draws next square. 
600-610 Subroutine to move cursor to center of screen. 
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700-710 Subroutine to do K repetitions of printing CHR$ of 
X and Y. 

800-820 Subroutine to do K repetitions of printing CHR$ of 

X, Y, and Z. 
900 Delay subroutine. 

MAIN VARIABLES 

J,K,W Work and loop variables. 

N Length of the side currently being drawn. 

R Random number from to 49 for time delay. 

C ASCII values of graphics character. 

X,Y,Z ASCII values of characters being printed by 

subroutines. Can be cursor control characters or 

graphics characters. 
CI Array of CRT ASCII colors to use for each square. 

C2 ASCII color code for current square. 



WALLOONS 



PURPOSE 

The Commodore 64 is quite a versatile machine. This program 
takes advantage of its powerful graphics capability to produce 
computer animation. That's right, animation! WALLOONS will 
entertain you with a presentation from the Color Circus. 

The Color Circus searches the world over to bring you the best 
in circus acts and other performing artists. Today, direct from 
their performance before the uncrowned heads of Europe, the 
Circus brings you the Flying Walloons. 

HOW TO USE IT 

Just sit back, relax, and get ready to enjoy the show. Type 
RUN and the Flying Walloons will be ready to perform. You 
have a front row center seat and the show is about to begin. 

Applause might be appropriate if you enjoy their perfor- 
mance. Please note that the Walloons have been working on a 
big new finish to their act which they haven't yet quite perfected. 
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SAMPLE RUN 




The billboard announces a new presentation of the (in)famous Com- 
modore 64. 




The Flying Walloons are to perform! 
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The Walloons attempt a dangerous trick from their repertoire. 

PROGRAM LISTING 

RERDV. 



100 rem; WALLOONS 

110 rem: COP't'RIGKT 1.983 

111 REM: PHIL FELDMRH.. TOM RUGG.. RND 

112 REM: WESTERN SVSTEMS GROUP 
150 NJ=3 

160 POKE 53280,2: POKE 53281.9 
1 90 PR I NT CHR* < 1 58 } CHR* <. 1 42 > 
200 GOSUE 1900: FOR j=i jn 7 : PR I NT : NEXT 
210 H=1234:FnR J=0 TO 13: POKE R+J., 12? 
220 NEKT:F0R J=0 TO 10: POKE R+ 18+49* J,. 12? 
230 NEXT: FOR J»0 TO 10: POKE R+40*J.. 12? 
240 next: FOR J=0 TO IS: POKE R+400+J.. 127 
250 FOR J=0 TO IS: POKE R+400+J.. 127 : NEXT 
260 GOSUE 1920 

270 PR I NT THE C 13).:" COMMODORE 64 " : PR I NT 

2S0 PRINT TflB< is:? .; "PROUSLV" : PRINT 

290 PR I NT TRE CI 7 > ; " PRESENTS " 

400 COSUB 1920: GOSUE 1920: PRINT C:l-iR$a.9> 

410 FOR J=--l TO 9: PRINT CHR* U ?■;■;: HEXT 

420 FOR J=l TO 13: PRINT CHR* < 29 Xi: NEXT 
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439 FOR J=l TO 13 : PRINT"-" 
435 FOR K«l TO 308 : NEXT : NEXT 

440 GOSUB 1920:GCSUB 

450 OOSUB 1 SO©: FOR J=»l TO i©: PRINT CHR$a7>; 

460 NEXT: PRINT TRBao;' .: "THE FLVING WRLLOONS" 

470 GOSUB 1920:COSUE 1920 

500 fl=1639: GOSUB 1300: GOSUB 1700 

510 GOSUB 1.920: GOSUB 1920 

526 FOR R=1626 TO 1638: GOSUB 1800 

530 GOSUB 1850: next: GOSUB 1S00 

600 OOSUB 1320 

610 R=il32:R=0 

620 FOR Q=R+i5S TC R+l?l;POKE Q..33:NEXT 

630 FOR L=l TO 2000 : NEXT 

640 Fi=l 142: GOSUB 1S00: GOSUB 1320 

658 FOR R=1142 TC 1132 STEP -1 

660 FOR L=l TO 100: NEXT 

670 GOSUB 1800: GOSUB 1358 : NEXT : GOSUB 1000 
680 GOSUB 192C:G0SUE 1850 : R==R-1 : GOSUB 1800 
690 GOSUB 1920 

700 GOSUB 1920: GOSUB 1S50 : R=R+1 : GOSUB 1880 

7 1 e eOSUB 1 850 : ft«R+ 1 : C0SU3 1 800 : GOSUB 1 920 

723 POKE fl.. 81: GOSUB 1920: GOSUB i^22-- 

730 POKE fl.. 87: OOSUB 1920: GOSUB 1928 

740 FOR fl=1132 TO 1128 STEP-1 

758 GOSUB lS0e:GO:5UB 1859 

760 FOR L=i TO 188 : NEXT : NEXT : GOTO 988 

800 R=1639: GOSUB 190©: GOSUB 1888 

810 OOSUB 1700 

820 FOR fl=160S TO 1128 STEP -4S 
830 GOSUB lSe0::jOSUD 1850: NEXT 
840 R=='R+l:IF R>=NJ THEN 1080 
900 FOR R=112S TO 1608 STEP 48 
910 GOSUB 1S08: GOSUB 1850: NEXT 
920 R=164S: GOSUB 1988: GOSUB 1888 
930 GOSUB 1600 

940 FOR f"i= 1599 TO 1119 STEP -40 
950 GOSUB 1S00:GO:SUE 1850: NEXT 
960 FOR R= 1119 TO 1599 STEP 48 
970 OOSUB 1888: GOSUB 1850: NEXT 
988 OOTO 800 

1000 fl=fl-39: GOSUB 1800: GOSUB 1858 
1818 R=R+4i: GOSUB 1880: GOSUB 1858 
1020 FOR R= 1098 TO 1618 STEP 48 
1830 GOSUB 1800: GOSUB 1858: NEXT 
1840 R= 1614:P:3KE fl. 87: POKE R-i,3i 
1 850 POKE fl~4 1 .. 93 : POKE R+39 .. 93 : 
1060 POKE R-2..90:POKE R~43..77 
1070 POKE R+37.. 78 

1080 GOSUB 1920: GOSUB 1920: GOSUB 1988 
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1890 FOR J=l TO 5 ■ PRINT CHR*a7):NEXT 
1100 PRINT TflB<lS>J "FINIS" :G0SUB 1320 
1110 GOSUB 1920:0051.13 1920: END 
1600 POKE n+110.. S'9:P0KE R+lli.. 69 
1610 POKE R+112.. 68:P0KE a+113.. 67 
1620 POKE R+n,4.. G4;P0KE Fl-i-113.. 70 
1630 POKE R+116..S2:PCKE R+ 117., 100 
1640 POKE R+158.99:P0KE fl+159.69 
1650 POKE fl+160.6S:POKE R+ 16 1.67 
1660 POKE R+155.. 233: POKE fl+156.223 
1678 RETURN 

1700 POKE n+ 123.1 00 : POKE R+ 1 24 .. 82 

1710 POKE R+125,70:POKE R+126..64 

1720 POKE R+127.67:PCKE R+128.. SS 

1730 POKE R+12£i.69:PCKE R+13e.-99 

1740 POKE R+159.67:P0KE R+lSe.6S 

1750 POKE fl+161.69:P0KE R+162.99 

1760 POKE R+164. 233: POKE R+ 165.. 223 : RETURN 

1800 POKE fl. 87: POKE R+39.. 64 : POKE R+40.91 

1810 POKE R+4 1.64: POKE R+S0.90 

1820 POKE fl+119.78:P0KE R-!- 121 .. 77 : RETURN 

1850 POKE R. 32: POKE R+39. 32 : POKE R+40..32 

1360 POKE fl-i-4 1.32: POKE R+S0.32 

1870 POKE R+119.32:P0KE R-i-121 . 32 : RETURN 

1900 POKE 532S1 . 1 :PRINT CHR*C147> 

1901 POKE 5328 1.9: RETURN 

1920 FOR L=l TO 100© : NEXT : RETURN 

RERDV, 



EASY CHANGES 

1. If you wish to have the Walloons perform more (or less) 
jumps during their performance, change the value of NJ in 
line 150 accordingly. To get five jumps, use 

150NJ = 5 

2. Timing delays are used often in the program. To change the 
length of the delay, alter the 1000 in line 1920 to a different 
value. Values larger than 1000 will lengthen the delays, while 
values smaller than 1000 will shorten the delays. 

3. You might want to personaUze the title placard and make 
yourself the presenter of the Walloons. This can be done by 
altering the string literal, "COMMODORE 64" in line 270 to 
something else. However, you cannot use a string with a 
length of much more than 14 characters or it will print 
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beyond the end of the placard. To say, for example, that 
Simon Fenster presents the Walloons, change line 270 to: 

270 PRINT TAB(13);"SIMON FENSTER":PRINT 

MAIN ROUTINES 

150 Sets NJ. 

200- 290 Displays title placard. 

400- 470 Removes "proudly," displays rest of title. 

500- 530 Moves first Walloon into view. 

600- 760 Second Walloon enters from the high platform. 

800- 980 Flying Walloons perform. 

1000-1110 Concludes Walloon's performance. 

1600-1670 Subroutine to draw lever with right side down. 

1700-1760 Subroutine to draw lever with right side up. 

1800-1820 Subroutine to draw Walloon with head at Poke 
location A. 

1850-1870 Subroutine to erase Walloon with head at A. 

1900-1901 Subroutine to clear screen. 

1920 Time delaying subroutine. 



MAIN VARIABLES 

NJ Number of jumps to make. 

A Reference Poke location. 

R Jump Counter. 

J,K,L,Q Loop indices. 



SUGGESTED PROJECTS 

1 . There are many possibilities for "spicing up" the Walloons' 
act with extra tricks or improved ones. Perhaps you would 
like to change their finish to something less crude. 

2. If you add some alternate tricks or endings as suggested in 
the previous project, try randomizing if and when they will 
be done. Thus, the Walloon's performance will be different 
each time the program is run. At least their ending may be 
variable. 

3. Scour the world yourself for other acts to include In the 
Commodore 64 Circus. Maybe someday we will have a com- 
plete software library of performing artists. 



Section 5 
Mathematics Programs 



INTRODUCTION TO MATHEMATICS PROGRAMS 

Since their invention, computers have been used to solve 
mathematical problems. Their great speed and reliability render 
solvable many otherwise difficult (or impossible) calculations. 
Several different numerical techniques lend themselves naturally 
to computer solution. The following programs explore some of 
them. They will be of interest mainly to engineers, students, 
mathematicians, statisticians, and others who encounter such 
problems in their work. 

GRAPH takes advantage of the Commodore 64's graphic 
powers to draw the graph of a function Y = f(X). The function is 
supplied by you. INTEGRATE calculates the integral, or "area 
under the curve," for any such function. 

Experimental scientific work frequently results in data at dis- 
crete values of X and Y. CURVE finds a polynomial algebraic 
expression to express this data with a formula. 

Theoretical scientists (and algebra students) often must find 
the solution to a set of simultaneous linear algebraic equations. 
SIMEQN does the trick. 

Much modern engineering work requires the solution of dif- 
ferential equations. DIFFEQN will solve any first-order ordi- 
nary differential equation that you provide. 

STATS will take a list of data and derive standard statistical 
information describing it. In addition, it will sort the data list 
into ranking numerical order. 
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CURVE 



PURPOSE AND DISCUSSION 

CURVE fits a polynomial function to a set of data. The data 
must be in the form of pairs of X-Y points. This type of data oc- 
curs frequently as the result of some experiment, or perhaps 
from sampling tabular data in a reference book. 

There are many reasons why you might want an analytic for- 
mula to express the functional relationship inherent in the data. 
Often you will have experimental errors in the Y values. A good 
formula expression tends to smooth out these fluctuations. 
Perhaps you want to know the value of Y at some X not ob- 
tained exactly in the experiment. This may be a point between 
known X values (interpolation) or one outside the experimental 
range (extrapolation). If you wish to use the data in a computer 
program, a good formula is a convenient and efficient way to 
do it. 

This program fits a curve of the form 

Y = Co + C,Xi +C2X2+ . . . +CoX" 

to your data. You may select D, the degree (or power) of the 
highest term, to be as large as 9. The constant coefficients, 
Co-Cd, are the main output of the program. Also calculated is 
the goodness of fit, a guide to the accuracy of the fit. You may 
fit different degree polynomials to the same data and also ask to 
have Y calculated for specific values of X. 

The numerical technique involved in the computation is 
known as least squares curve fitting. It minimizes the sum of the 
squares of the errors. The least squares method reduces the 
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problem to a set of simultaneous algebraic equations. Thus these 
equations could be solved by the algorithm used in SIMEQN. In 
fact, once the proper equations are set up, CURVE uses the 
identical subroutine found in SIMEQN to solve the equations. 
For more information, the bibliography contains references to 
descriptions of the numerical technique. 



HOW TO USE IT 

The first thing you must do, of course, is enter the data into 
the program. This consists of typing in the pairs of numbers. 
Each pair represents an X value and its corresponding Y value. 
The two numbers (of each pair) are separated by a comma. A 
question mark will prompt you for each data pair. After you 
have entered them all, type 

999,999 

to signal the end of the data. When you do this, the program will 
respond by indicating how many data pairs have been entered. A 
maximum of 100 data pairs is allowed. 

Next, you must input the degree of the polynomial to be 
fitted. This can be any non-negative integer subject to certain 
constraints. The maximum allowed is 9. Unless your data is well 
behaved (X and Y values close to 1), the program will often not 
produce accurate results if D is greater than 5 or so. This is 
because the sums of powers of X and Y are calculated up to the 
powers of 2*D. These various sums are several orders of 
magnitude different than each other. Errors result because of 
the numerous truncation and round-off operations involved in 
doing arithmetic with them. Also, D must be less than the 
number of data pairs. You will get an error message if you input 
an illegal value of D. 

A few notes regarding the selection of D may be of interest. If 
D = 0, the program will output the mean value of Y as the coeffi- 
cient Co. If D=l, the program will be calculating the best 
straight line through the data. This special case is known as 
"linear regression." If D is one less than the number of data 
pairs, the program will find an exact fit to the data (barring 
round-off and other numerical errors). This is a solution which 
passes exactly through each data point. 
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Once you have entered the desired degree, the program will 
begin calculating the results. There will be a pause while this 
calculation is performed. The time involved depends on the 
number of data pairs and the degree selected. For twenty-five 
data pairs and a third degree fit, the pause will be about half a 
minute. Fifty data pairs and a fifth degree fit will take about a 
minute. 

The results are displayed in a table. It gives the values of the 
coefficients for each power of X from to D. That is, the values 
of Co-Cd are output. Also shown is the percent goodness of fit. 
This is a measure of how accurately the program was able to fit 
the given case. A value of 100 percent means perfect fit, lesser 
values indicate correspondingly poorer fits. It is hard to say 
what value denotes satisfactory fit since much depends on the 
accuracy of data and the purpose at hand. But as a rule of 
thumb, anything in the high nineties is quite good. For those in- 
terested, the formula to calculate the percent goodness of fit is 



where Y, are the actual Y data values, Y, are the_ calculated Y 
values (through the polynomial expression), and Y is the mean 
value of Y. 

Next, you are presented with three options for continuing the 
run. These are 1) determining specific points, 2) fitting another 
degree, 3) ending the program. Simply type 1, 2, or 3 to make 
your selection. A description of each choice now follows. 

Option 1 allows you to see the value of Y that the current fit 
will produce for a given value of X. In this mode you are contin- 
ually prompted to supply any value of X. The program then 
shows what the polynomial expression produces as the value for 
Y. Input 999 for an X value to leave this mode. 

Option 2 allows you to fit another degree polynomial to the 
same data. Frequently, you will want to try successively higher 
values of D to improve the goodness of fit. Unless round-off er- 
rors occur, this will cause the percent goodness of fit to increase. 

Option 3 simply terminates the program and with that we will 
terminate this explanation of how to use CURVE. 



P.G.F. = 100* 




232 More than 32 BASIC Programs for the Commodore 64 Computer 



SAMPLE PROBLEM AND RUN 

Problem: An art investor is considering the purchase of 
Prime's masterpiece, "Frosted Fantasy." Since 1940, the paint- 
ing has been for sale at auction seven times. Here is the 
painting's sales record from these auctions. 



Year 


Price 


1940 


$ 8000. 


1948 


$13000. 


1951 


$16000. 


1956 


$20000. 


1962 


$28000. 


1968 


$39000. 


1975 


$53000. 



The painting is going to be sold at auction in 1983. What price 
should the investor expect to have to pay to purchase the paint- 
ing? If he resold it in 1986, how much profit should he expect to 
make? 

Solution: The investor will try to get a polynomial function 
that expresses the value of the painting as a function of the year. 
This is suitable for CURVE. The year will be represented by the 
variable X, and the price is shown by the variable Y. To keep the 
magnitude of the numbers small, the years will be expressed as 
elapsed years since 1900, and the price will be in units of $1000. 
(thus a year of 40 represents 1940, a price of 8 represents $8000.) 
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The program displays an introduction and waits for the operator to 
begin entering the data. 




After the operator enters the data, he tries a first degree fit. 
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The operator obtains a goodness fit of 95. 1 %. He wants to do better, so 
he tries for another fit by selecting option 2. 




This second degree has a very high goodness of fit. The operator then 
wants to extrapolate his data to the years 1983 and 1986. He selects op- 
tion 1. 
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The operator found that he should expect to pay about $72,400 to buy 
the painting in 1983. Around an $8200 profit could be expected upon 
resale in 1986. The operator ends the program. 



Of course, the investor did not make his decision solely on the 
basis of this program. He used it only as one guide to his deci- 
sion. There is never any guarantee that financial data will per- 
form in the future as it has done in the past. Though CURVE is 
probably as good a way as any, extrapolation of data can never 
be a totally reliable process. 



PROGRAM LISTING 

REFiLI't'. 



100 rem: curve 

110 rem: COPVRIGHT 1983 

111 rem: PHIL FELEMFiH TOM RUGG.. AND 

112 REM: WESTERN SYSTEMS GROUP 
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150 MX=500 
160 EF=:399 
170 MD=.Si 

H00 DIM X';MM).VvMX> 

210 Q=Mri+l :DIM fl';Q.. Q> .. R';Q> . VCQ^' 

220 Q==MI!*2-EIM P<Q) 

300 PRINT CHR*<147>;" - LEAST SQUARES ".: 

305 PRINT "CURVE FITTING -": PRINT 

310 PRIKT"IINTER !-l IiflTfl FAIR IN RESPONSE TO EACH" 

320 PR I NT "QUEST I ON MARK. EACH PAIR IS AN X VALUE" 

330 FRINT"RNB A V VALUE SEPARATEE BY A COMMA. " 

335 PRINT 

340 PRINT :PRINT"flFTER ALL DATA IS ENTERED.. TVPE" 
350 PRINT EF,: ".. " EF 

360 PRINT" IN RESPONSE TC THE LAST QUESTION MARK. " 
365 PRINT: PRINT 

370 PR I NT "THE PROGRAM IS CURRENTLV SET TC ACCEPT" 
330 PRINT"fl MAXIMUM OF" .; MX; "DATA PAIRS." 
400 PRINT:PRINT;J=0 

410 j=j+i : input"x..v=".;X';j:>..v<j;' 

420 IF X<..T-;'=EF and V<J>=EF THEN J-.J-i:SGTO 450 
430 IF J=MX THEN PRINT : PRINT"NC MORE DATA ALLOWED" 
435 IF .T=MX THEN GOTO 450 
440 GOTO 410 
450 NP=J:PRINT 

460 IF NP=0 THEN PRINT"** FATAL ERROR **".: 

465 IF NP=0 THEN PRINT" -~ NO DATA ENTERED" ^ STOP 

470 PRINT NP;"DATA PAIRS ENTERED" : PRINT 

500 PRINT: PR I NT "DEGREE OF POLYNOMIAL".; 

505 INPUT " TC BE FITTED" ; D : PRINT 

510 IF i;:<;e then gosud sis: goto see 

512 GOTO 520 

515 PRINT"** ERROR! ** -- DEGREE MUST BE >= 3" 

517 RETURN 

520 D=INT<D>:IF D<NP THEN 540 

530 PRINT"** ERROR! ** NOT ENOUGH DATA" 

535 GOTO 500 

540 D2==2*D:IF E>MD THEN PRINT"** ERROR! ** " 

545 IF D>MD THEN PRINT"— DEGREE TOO HIGH": GOTO 

500 

550 N=D+1 

600 FOR .1=1 TC D2:P(:J>=0:FOR K==l TO NP 

6 10 p <; J > =P < J ::■ -i-:^'; ( k > t.j : next : next : p } =np 

620 R'::i>=G:FOR .J=l TC NP : RU >=R< 1 :5+V<.J-> 
630 NEXT: IF N=l THEN 650 
640 FOR J=2 TO N : Rc: J)=0 : FCR !<=! TC NP 
650 R < J > =R J > + Y <:. K ■) *X K > t':: J- 1 > : NEXT : NEXT 

660 FOR J=l TO N:F0R I<=1 TO N : AU'.. i<^==P':: J+K 2) 

665 NEXT: NEXT 
670 GOSUB 2000 

700 PRINT : PR I NT "X POWER COEFFICIENT" 
710 FOR J=l TC 7: PRINT CHR*a.:EI'7) ; : NEXT 
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715 PRINT TRl:<l:i.;:-.; 

720 FOR J= 1 TO :|. 1 : PR I MT CHR^ 1 97 > .; : NEXT : PR I WT 
730 FOR ..1 = 1 TC H: PRINT" " J-1 .. VCJ^' : NEXT 
735 PRINT: PRINT 

740 a=e:FOR J=l TO NP:G=Q+V';:J> :NCXT 
745 M=Q/NP : T=S : 0=0 : FOR J»l TO NP 

750 Q=e : FOR K= 1 TO N : 3=0+7 C l< *X •:: J ::• 'K !< 1 > : NEXT 

755 T=T+'::v.::j>-QVi-2 

760 D»G+CV<:j>-M)t2:KEX7: IP' G=S THEN T=l :GOTC 783 

770 T=1 T/G 

788 PRINT"COOIiNESS CF i-Tr==".;T 

800 PR I NT PR I NT " — CONT I NURT I ON OPT I CN3 ~— " ■ PR I NT 

810 PRINT" 1 DETERMINE SPECIFIC POINTS" 

820 PRINT" 2 - FIT ANOTHER EEOREE TO SAME DflTR" 

330 PRINT" 3 - END PROORRM" : PRINT 

840 INPUT"WHRT NEXT" ; G : Q=INT(;G::' : IF G=3 THEN END 

350 IF S=2 THEN 598 

860 IF QOl THEN 806 

900 PRINT: PRINT 

905 PR I NT" ENTER ".iEF; "TO LERVE THIS MODE" 
910 PRINT: INPiJT"X=".;XV: IF XV=EF THEN SS0 
920 VV=8:F0R K=l TO H 

930 VV=VV+V<l-0*XVt'::K-l > : NEXT : PRINT"V=" ,; VV 
940 COTO 910 

2000 I F N= 1 THEN V a > =R a :> /fi a 1 : return 

2010 FOR k:==l TO N-i 

2028 I ==!<+! 

£030 L==K 

2040 IF flBS<BC I . K> »fllBS<n<L. K> > THEN L=I 

2050 IF KN THEN I = I 1 : GOTO 2048 

2860 IF L=l< THEN 2180 

2070 FOR J=4::: TO N : G3=R<I<.. J> : R<K.. J>=R(;L.. J> 

2080 fl(:L...J>=G:NEXT 

2090 Q=R(K> :R(:i<>=R(:l;j ■r<l'>=q 

2100 I=K+1 

2110 Q=fi<i..i<>/n(;i<.. i-C' :fla/K>=0 

2 1 20 FOR J=K+ 1 TO H : R < I . J > =R C I . J > -Q*fl < K .. J : NEXT 

2130 R a > =R < I '.> --Q*R K ■;■ : I F I <N THEN I = I + 1 : GOTO 2118 

2140 NEXT 

2150 V'.':N::'=R<H>/fla-i.N> :F0R I'-N-l TO 1 STEP -1 

21G0 Q-0:FOR J=I + 1 TO N : Q=Q+R'.-. I . J>*'v''r.J';' 

2170 va:>=(:Ra>-Q)/Ra. o :hext:hext 

2180 RETURN 

rerdv . 



EASY CHANGES 

1. The program uses 999 as the flag number to terminate 
various input modes. This may cause a problem if your data 
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include 999. You can easily change the flag number by 
modifying the value of EF in line 160 to any value not 
needed in your data. To use 10101, for example, make this 
change: 

160 EF= 10101 

2. To allow fits of higher degrees of 9, set the value of MD 
appropriately: 

170 MD=10 

However, it must be stressed that it can be unreliable to at- 
tempt high degree fits. Unless your data is well behaved (X 
and Y values close to 1), the program will often not produce 
accurate resuks if D is greater than 5 or so. This is because 
sums of powers of X and Y are calculated up to powers of 
2*D. These various sums are several orders of magnitude 
different from each other. Errors result because of the 
numerous truncation and round-off operations involved in 
doing arithmetic with them. A practical limit for MD is 7. 
The absolute limit of MD is 14. 



MAIN ROUTINES 

150- 170 Initializes constants. 

200- 220 Dimensions arrays. 

300- 380 Displays introductory messages. 

400- 470 Gets X-Y input data from the user. 

500- 550 Gets degree of polynomial from the user, deter- 
mines if it is acceptable. 

600- 670 Sets up equations for the simultaneous equation 
solver and calls it. 

700- 780 Calculates goodness of fit, displays all results. 

800- 860 Gets user's continuation option and branches to it. 

900- 940 Determines Y value corresponding to any X value. 
2000-2180 Subroutine to solve simultaneous linear algebraic 
equations. 

MAIN VARIABLES 

MX Maximum number of data pairs allowed. 

MD Maximum degree allowed to fit. 

EF Ending flag value for data input and X point mode. 
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X.Y 


Arravs of X and Y data ooints 


NP 


Number of data pairs entered. 


D 


Oeffree of nolvfinmial tn fit 


D2 


the msiviniitiTi rinw(*r cum tn pnmmitp 


N 


D -1- 1 niimHpr of cimiiltfin^AiiQ pmifitionc \r% coIva 


A,R,V 


Arravs for simultaneous linear eouation solver 


P 


Arrav for holdinc sums of various Dowers of X 


I,J,K,L 


Loop indices. 


Q,G 


Work variables. 


M 


Mean value of Y. 


T 


Percent goodness of fit. 


XV 


Specific X point to calculate Y for. 


YV 


Y value corresponding to XV. 



SUGGESTED PROJECTS 

1 . No provision for modifying the data is incorporated into the 
program. Often it would be nice to add, subtract, or modify 
parts of the data after some results are seen. Build in a capa- 
bility to do this. 

2. You may desire other forms of output. A useful table for 
many applications might include the actual X values, calcu- 
lated Y values, and/or percentage errors in Y. 

3. Sometimes certain points (or certain regions of points) are 
known to be more accurate than others. Then you would 
like to weight these points as being more important than 
others to be fit correctly. The least squares method can be 
modified to include such a weighting parameter with each 
data pair. Research this technique and incorporate it into 
the program. (Note: you can achieve some weighting with 
the current program by entering important points two or 
more times. There is a certain danger in this, however. You 
must only ask for a solution with D less than the number of 
unique data points. A division by zero error may result 
otherwise.) 

4. Often you wish to try successively higher degree polynomials 
until a certain minimum goodness of fit is obtained. Modify 
the program to accept a minimally satisfactory goodness of 
fit from the user. Then have the program automatically try 
various polynomial fits until it finds the lowest degree fit, if 
any, with a satisfactory goodness of fit. 
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DIFFEQN 



PURPOSE 

Differential equations express functions by giving ttie rate of 
change of one variable with respect to another. This type of rela- 
tion occurs regularly in almost all the physical sciences. The 
solution of these equations is necessary in many practical engi- 
neering problems. 

For many such equations, a closed form (or exact analytical 
expression) solution can be obtained. However, for just as 
many, no such "simple" solution exists. The equation must then 
be solved numerically, usually by a computer program such as 
this. 

There are many types and classes of differential equations. 
This program solves those of a simple type; namely, first order, 
ordinary differential equations. This means the equation to be 
solved can be written in the form 

dY 

— — = (any function of X, Y) 
dX 

Here, X is the independent variable and Y is the dependent vari- 
able. The equation expresses the derivative (or rate of change) of 
Y with respect to X. The right-hand-side is an expression which 
may involve X and/or Y. 

To use the program, you must supply it with the differential 
equation to be solved. The procedure to do this is explained in 
the "How To Use It" section. 

A technique known as the "fourth-order, Runge-Kutta" 
method is used to solve the equation. Space limitations prevent 
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any detailed explanation of it here. However, it is discussed well 
in the numerical analysis books referenced in the bibliography. 

HOW TO USE IT 

The first thing you must do is enter the differential equation 
into the program. This must be done at line 3000. Currently this 
line contains a REM statement which you must replace. The 
form of line 3000 should be: 

3000 D = (your function of X, Y) 

D represents dY/dX. GOSUBs are made to line 3000 with X and 
Y set to their current values. Thus, when each RETURN is 
made, D will be set to the appropriate value of dY/dX for that 
given X and Y. If necessary, you may use the lines between 3000 
and 3999 to complete the definition of D. Line 3999 already 
contains a RETURN statement so you do not need to add 
another one. 

The program begins by warning you that you should have al- 
ready entered the equation at line 3000. You acknowledge that 
this has been done by hitting the C key to continue. 

Now the various initial conditions are input. You are 
prompted for them one at a time. They consist of: the initial 
values of X and Y, the stepsize interval in X at which to display 
the output, and the final value of X. 

With the input phase completed, the program initializes things 
to begin the output. A question mark will be displayed in the 
lower left of the screen, telling you the program is waiting for 
you to hit any key to begin the output. 

The two-column output is displayed at each interval of the 
stepsize until the final value of X is reached. Output may tem- 
porarily be halted at any time by simply hitting any key. This 
will stop the display until you hit any key to resume the output. 
The output may be started and stopped as often as desired, thus 
enabling you to leisurely view intermediate results before they 
scroll off the screen. 

SAMPLE PROBLEM AND RUN 

Problem: A body, originally at rest, is subjected to a force of 
2000 dynes. Its initial mass is 200 grams. However, while it 
moves, it loses mass at the rate of 1 gram/sec. There is also an 
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air resistance equal to twice its velocity retarding its movement. 
The differential equation expressing this motion is: 

dY = (2000 - 2Y) where Y = velocity (cm./sec.) 

dX (200 -X) X = time (sec.) 

Find the velocity of the body every 10 seconds up through two 
minutes. Also, plot this velocity as a function of time. 

Solution and Sample Run: The solution and sample run are il- 
lustrated in the accompanying photographs. 




The operator hits a key to exit from the program. Then he enters the dif- 
ferential equation into line 3000. He types RUN to restart the program. 
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The operator has hit the C key. The program responds by beginning the 
input phase. 



AT LINE 3888. THE rORMAT IS 
3888 D = (VOUR FUNCTION OF X,V) 
HHERE D = DV/DX. 

IF THIS HAS BEEN DONE, HIT 
THE 'C KEV TO CONTINUE. 

IF HOT. HIT AHV OTHER KEV. 
THEH ENTER LINE 3668 AND RE-RUN 
THE_PR06RAH. 

INITIAL UALUE OF X ? 8 
INITIAL VALUE OF V ? 6 
STEPSIZE IN X ? 18 
FINALUALUE OF X ? 126 

"thEfOLLOHIHG OUTPUT CAN BE 
HALTED BV HITTING AHV KEV. IT 
CAN THEH BE RESUfCD BV HITTING 
ANV KEV. THIS HAV BE REPEATED. 

WHEN THE QUESTION HARK (?) 
APPEARS. HIT ANV KEV TO BEGIN 
rME_ OUTPUT. 

x" ' V 

■> 



The operator has completed the input. The program signals with a ques- 
tion mark that it is waiting for him to hit any key. It will not continue 
the run until he does so. 
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The operator hits a key and the program responds with the tabulated 
output. X is time in seconds and Y is velocity in cm./sec. 

PROGRAM LISTING 

REflDV. 



100 rem: DIFFEQN 

110 rem: copyright 1:?S3 

111 rem: PHIL FELDMflN.. TOM RUGO.. flHD 

112 REM: WESTERN SYSTEMS GROUP 
150 CLR 

160 PRINT CHRiFa47> 

200 PRINT" niFFERENTIRL " .; 

210 PRINT"EQUrHTION SOLVER" 

220 G0SU2 2500: PRINT 

230 PRINT" THE EQURTION MUST " .; 

240 PR I NT "EE DEFINEn" 

250 PRINT"RT LINE 3000. THE ".: 

260 PRINT"FCiRMRT IS" 

270 PR I NT "30013 E = CVCUR ".: 

280 PR I NT "FUNCTION OF X.Y>" 

290 PR I NT "WHERE D = DV/DX, " 

300 PRINT" IF THIS HAS BEEN "; 

310 PRINT"DONE.. HIT" 

320 PR I NT "THE -'C KEY TO 

330 PR I NT "CONTINUE. " 
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340 PRINT" IF HOT.. HIT flNV "; 

350 PR I NT "OTHER KEV. " 

360 PR I NT "THEN ENTER LINE 3300"; 

370 PRINT" RHD RE-RUN" 

380 PRINT"THE PROCRflN. " 

390 GOSUE 2500: PRINT 

400 GET R*:IF R$ = "" THEN 400 

410 IF R* <> "C" THEN ENS 

500 INPUT" INITIflL VRLUE OF X " .; XX 

510 INPUT" IN ITIRL VRLUE OF V ";V't 

520 V VV:X = XX; GOSUE 3008 

530 INPUT"STEPSIZE IN X " ; SX 

540 INPIJT"FINRL VALUE OF X " ; XF 

600 OCSUE 2500: PRINT 

610 PRINT" THE FOLLOWING " 

620 PR I NT "OUTPUT CRN EE" 

630 PRINT"HRLTrD EV HITTING "; 

640 FRINT"RNV KEV. IT" 

650 PR I NT "CRN THEN EE RESUMES "i 

660 PRINT"EV HITTING" 

670 PRINT"RHV KEV,, THIS MRV "J 

680 PR I NT "BE REPERTEE. " 

630 PRINT" WHEN THE QUESTION MARK 

710 PRIHT"RPPERRS. HIT RNV KEV TO EEGIN" 

730 PR I NT "THE OUTPUT. " 

740 GOSUE 2500: PRINT 

800 PR I NT " X " ., " V " : PR I NT " ? " 

810 GET RiE::lF R* = THEN S10 

900 PRINT XX.. VV: GOSUE 1660 

910 0. ■-■ XX+BX 

920 IF Q > XF+l.E-5 THEN END 

930 X = XX :V » VV: GOSUE 3000 : KO = D 

940 X = XX+DX/2:V = VV+K0*EX/2 

950 GOSUE 3000 :K1 = E:V = VV+Kl*EX,'-'2 

960 GOSUE 3000 :K2 = D:X « XX+DX 

970 V = VV+K2*BX:G0SUB 3000 : K3 = B 

980 BV = BX*a<0+2*Kl+2*K2-H<3>/6 

990 VV = VV+BV:XX = XX + BX:GOTC 9S0 

1600 GET Rf 

1610 IF R* = "" THEN RETURN 
1620 GET R* 

1630 IF R* = "" THEN 1620 
1640 RETURN 

2500 FOR J = 1 TO 30: PR I NT"-".; 
2510 NEXT: RETURN 
2900 REM 

2910 REM *** BEFINE THE DIFFERENT I RL 
2920 REM *** EQUATION IN LINES 
2930 REM *** 3000 TO 3999. 
2940 REM 
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2950 REM *** MRKE LINE 3900 THE FIRST 
2960 REM LINE OF THE DEFINITION. 

2970 REM 

3000 REM D = CTHE FUNCTION OF X.V;' 
3999 RETURN 

RERDV. 



EASY CHANGES 

1. If you have already entered the differential equation and 
wish to skip the introductory output, add this line: 

190 GOTO 500 

This will immediately begin the input dialog. 

2. If you wish to use negative stepsizes, line 920 must be 
changed to: 

920 IF Q<XF-l.E-5 THEN END 



MAIN ROUTINES 

200- 390 Displays initial messages. 

400- 540 Gets user's inputs. 

600- 740 Displays additional messages. 

800- 830 Initializes output display. 

900- 990 Computes each step. 

1600-1640 Stops and starts output. 

2500-2510 Subroutine to display a dashed line. 

3000-3999 User supplied routine to define D. 



MAIN VARIABLES 



D Value of dY/dX. 

X,Y Values of X,Y on current step. 

XX, YY Values of X,Y on last step. 

DX Stepsize in X. 

XF Final value of X. 

KO,K 1 , Runge-Kutta coefficients. 

K2,K3 

R$ User entered string. 

Q Work variable. 

J Loop index. 
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SUGGESTED PROJECTS 

1 . Modify the program to display the output in graphical form. 

2. The value of dY/dX as a function of X is often a useful 
quantity to know. Modify the program to add it to the col- 
umnar display. 

3. The inherent error in the calculation depends on the stepsize 
chosen. Most cases should be run with different stepsizes to 
insure the errors are not large. If the answers do not change 
much, you can be reasonably certain that your solutions are 
accurate. Better yet, techniques exist to vary the stepsize 
during the calculation to insure the error is sufficiently small 
during each step. Research these methods and incorporate 
them into the program. 

4. The program can be easily broadened to solve a set of 
coupled, first order, differential equations simultaneously. 
This would greatly increase the types of problems that could 
be solved. Research this procedure and expand the program 
to handle it. 



GRAPH 



PURPOSE 

Is a picture worth a thousand words? In the case of mathe- 
matical functions, the answer is often "yes." A picture, i.e. a 
graph, enables you to see the important behavior of a function 
quickly and accurately. Trends, minima, maxima, etc. become 
easy and convenient to determine. 

GRAPH produces a two-dimensional color plot of a function 
that you supply. The function must be in the form Y = (any 
function of X). The independent variable X will be plotted along 
the abscissa (horizontal axis). The dependent variable Y will be 
plotted along the ordinate (vertical axis). You have complete 
control over the scaling that is used on the X and Y axes. 

HOW TO USE IT 

Before running the program, you must enter into it the func- 
tion to be plotted. This is done as a subroutine beginning at Une 
5(X)0. It must define Y as a function of X. The subroutine will be 
called with X set to various values. It must then set the variable 
Y to the correct corresponding value. The subroutine may be as 
simple or as complex as necessary to define the function. It can 
take one line or several hundred Unes. Line 5999 is already set as 
a RETURN statement, so you need not add another one. 

Having entered this subroutine, you are ready to run the pro- 
gram. The program begins by warning you that it assumes the 
function has already been entered at Une 5(K)0. It will then ask 
you for the domain of X, i.e. the lowest and highest values of X 
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that you wish to have plotted. Values can be positive or negative 
as long as the highest value is actually larger than the lowest one. 

Now you must choose the scale for Y. To do this intelligently, 
you probably need to know the minimum and maximum values 
of Y over the domain of X selected. The program finds these 
values and displays them for you. You must then choose the 
minimum and maximum values you wish to have on the Y scale. 
Again, any two values are acceptable as long as the maximum 
scale value of Y is larger than the minimum scale value of Y. 

The program will now display the plot of your function. Each 
axis is twenty characters long, with the origin defined as the min- 
imum scale values of both X and Y. Ten tick marks appear on 
each axis. The locations of the lower, middle, and upper values 
on each scale are displayed appropriately. Note: The program 
may not be able to display all six scaling numbers if you input 
some scaling having a large number of significant digits. If this 
occurs on the X axis, the program may use one or more of the 
expressions "XL", "XM" or "XU" instead of the actual numbers. 
This stands respectively for "Xlower", "Xmid" and "Xupper". 
Similarly, "YL", "YM" and "YU" may be used on the Y axis. 

The actual plot is drawn with twice the resolution shown on 
the axis. That is, forty values of X and Y are plotted. This is ac- 
complished by using the various 2x2 graphic characters 
available on the Commodore 64. 

If a value for Y should be off-scale, a special orange colored 
point is displayed at the appropriate value of X. If the actual 
value of Y is too large, it is plotted just above the maximum Y 
value. If this actual value of Y is too small, it is plotted just 
below the Y axis. 

After the plot is drawn, the program will tell you to hit any 
key to continue. When you do so, information about the plot 
scaling is provided. For both X and Y, you are given the low, 
mid, and upper values on each axis. 

You now have the option of hitting G to draw the graph again 
or any other key to terminate the program. 
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SAMPLE RUN 




After loading the program, the operator enters line 50(X) to request the 
graph Y = SIN(X). RUN is typed to begin the program. 




The input dialog transpires. The operator asks that the domain of X be 
0-6.28. The program responds by showing the maximum and minimum 
value of Y over this domain. The operator chooses an appropriate scale 
for the Y axis. 
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Relevant scaling information is shown. By pressing G, the operator can 
see the graph again. 
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PROGRAM LISTING 



REflDV. 



100 rem: graph 

110 REM: COPVRI.GHT 

111 rem; PHIL FELDMRH. TOM RUGG.. RND 

112 REM: WESTERN SYSTEMS GROUP 

150 C= 1 876 : X V= 1 2 : POKE 532S0 .. 1 : POKE 5328 1 . 
1 60 PB= 1 02 : C 1 =56 1 48 : C0= 1 : C2=5 : C3=S 
170 W=221 

200 POKE 53281.. 1 : PR I NT CHR*a47> ; : POKE 5328 1..0 

20 1 PR I NT TRE 1 6 > ,: CHR* CIS);" GRAPH " : PR I NT 
210 PRINT :G0SUB 1000 

220 PRINT : PRINT : INPUT"LOUIEST VRLUC OF X";XL 
225 PRINT: INPUT "HIGHEST VALUE OF X'SKU 

230 IF XU<=KL THEN PRINT: PR I NT" BAD X RANGE " 

235 IF XU<=-XL THEN GOTO 220 

240 GOSUE :S00:GOSUE 300 : GOSUE 500 

245 PR I NT CHRi- < :l. .9 j : PR I NT : PR I NT : PR I NT : PR I NT 

250 PR I NT "HIT RN V KE't' " : PR I NT' : f='R I NT " TO CONT I HUE " 

260 irCT Q*:IF Q*="" THEN 260 

270 OOSUB 900 

280 END 

300 POKE 5328 1 .. 1 : PR I NT CHR* a 47 ;:■ ; 

301 POKE 53281.. 6 : POKE C..-:'! 
310 FOR J==l TO 20: POKE C+J.. 114 
320 POKE C-40H<J.. 115:NEXT 

330 FOR J=:e TO 20 STEP 10 

340 poke: C+40+J..5'3:PCKE C-1-40*J.. 64 

350 NEXT: POKE C+21 .. 24 : POKE 0-840., 25 

360 XK=(:XL-!-XU>/2 : VM=':: VL+VU::'/2 

370 R*=STR*'::XL> : R=LEN<fl$> : TE==XV"R+:l. 

375 IF TE<1 THEN TE=XV : R*="XL" 

380 OCSUE 460 : R$~STR* ■'. >\\'\ > : R=LEN (. > : TB=;K',.'+ 1 R-R/?+ J 

385 OOSUB 460 : R* =STR$: ( )<n y ■ TB^^XV-:- 1 3 

330 IF TE-!-LEN<fl*>>39 THG:N TE=XV+28 : R$:="XU" 

400 GOSUE 460 : R* =£:TT::* ■:: VU > : R=LEN ■:: R* > : T3==XV-R~- 1 

405 IF TE<e THEN TB=XV-3 : R*=" VU" 

410 NL==1 :GOSUB 480 

4 i 5 fl$=STR* < VM : R=LEN (. P.-$ > : T3=XV-R- 1 : NL = 1 1 

420 IF TE<0 THEN TE=XV~3 : Rit:="VM" 

430 OOSUB 480 : A*=STR* ^ VL > : A=LEN < R* > : TB^^XV -ri- 1 

435 IF TB<0 THEN TE~XV~3 : R$="VL" 

440 NL=21:CnSMS .430: RETURN 

460 PRINT CHR$:(l:?> 

463 FOR .J=l TO 22: PRINT CHR*a7:> ; : NEXT 
466 PR I NT TRE (. TB ) .; A* : RETURN 
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480 PKIHT CHRifaS').; 

483 FOR J=l TO NL:PRIHT CKR^:a7> : HCXT 

486 PRINT THE '^TE?.;!"!*: RETURN 

500 2K= < XU-KL > /28 ■ E V= < VU-VL > .-'Se 

510 X==XL:C0SUB 738:rC=124: if F-==e THEN PC=10S 

528 IF C<0 THEN E=0 ^ PC=PB 

530 IF D>2S THEN D=20:PC=PB 

532 CC:-=C£-:F PC = PE THEW Ce = C3 

535 POKE Cl~4e:*E.Ce 

540 POKE 0-40*11, PC 

550 FOR J=l TO 20:X=XLi-DX*<:J-0.5;:' ;G0SUB 700 

555 PC=12G:IF F=e THEN PC=123 

560 IF B<0 THEN E=0 : PC=PB 

570 IF B>S0 THEN B=£0 : PC=PB 

575 C0=C2:IF PC = PB THEN CS = C3 

580 POKE Cl+J-40s|<E.C0 

585 POKE C+J--40*r,PC 

590 Xs=XL+DX* J : OOSUB 780 : PK=PEEK ( r:-!-j :i.o*E > 

5J5 IF E<0 THEN E^S : PC=PE : COTC 668 

680 IF E>28 THEN E=28 : PC=PE : GOTO 660 

63.0 PC=226:IF F=0 THEN PC=127 

620 IF PK»126 THEN 660 

630 PC=255-IF F«0 THEN PC=S'S 

640 IF PK=123 THEN 660 

650 PC=124:IF F==0 THEN FC=:t08 

655 C8=C2;IF PC » PB THEN C8 = C3 

668 POKE Cl+J-4e*E..C0 

665 POKE C+J-48*I«B..PC 

670 NEXT -RETURN 

700 OCSUE 5800: V=?:v--VLVBV:E==aNT<V;' 

710 IF V<VL THEN E=--5 

720 IF V>VLl THEN E=25 

730 F=1::F 'r,V-E>>=9.5 THEN B=B+l:F=8 

740 RETURN 

800 EX=(:XU-XI..>,-'40 : X==XL : GCSUE 5800 : MH=V : MX=V 
805 FOR J=l TO 40 : X=XL+JM<DX : GCSUE 5088 
910 IF V>MX THEN MX«V 
828 IF V<MN THEN riN=V 
830 NEXT 

840 PRINT: PR I NT "OVER THIS RRNGE OF X" 

845 PRINT" MRXIMUM V =".;r-1X 

S5S PRINT" MINIMUM V =";MN: PRINT 

855 PRINT"NOW CHOOSE THE SCFILE FOR V": PRINT 

860 INPUT" MINI MUM V SCRLE VRLUE".:VL. 

865 PRINT: INPUT "MRX I MUM V SCRLE VALUE ".iVU 

870 IF VU<=VL THEN PRINT 

873 IF VUOVL THEN PRINT" ERB V SCRLING— 

876 IF VU<=VL THEN GOTO 348 
888 RETURN 

980 PRINT CHRsE:<147;'.; "X SCRLING" 
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910 PR: I NT" 
913 PRINT" 



f'1Ii-.|IMlJI1 - "JXL 
MID - ".;XM 



916 PRINT" MRXIKUK - " ; KU 

92e PRINT: PRINT" CflCH SCRLE DIVISION " .: DX 

925 PRINT: print: PRINT"? SCRLING" 
930 PRINT" MINIMUM - " .; VL 



936 PRINT" MRXIMUM - " ; VU 

940 PRINT: PRINT" rflCK SCRLE DIVISION - " ; DV 
945 PRINT: PRINT 

950 PRINT"HIT -'C-' TO SEE ThIE GRRPH RGRIN" 
955 PRINT" RNV OTHER KEV TO QUIT 
960 GET Q*:IF 1;:!*=="" THEN 969 
976 IF 12*=" G" THEN GCSUB 300 : GOSUB 506 
980 RETURN 

1090 PRINT CHR*a7S>; = FOR J = 1 TO 11 
1010 PRINT CHR*a92).; :NEXT:PRINT" WRRNING 
1015 FOR J = 1 TO 11 
1 020 PR I NT CHR* < 1 32 > ; : NEXT 

1 025 PR I NT CHR* < 1 74 > : CCSUB 1 1 00 = PRINT CHR* <.U> i 
1030 PRINT" THE SUBROUTINE AT LINES " i 

1035 PRINT CHR*aJ> :GOSUB 1100 
1040 PRINT CHR;f:ai>.; 

1043 PRINT " 5000-5999 IS RSSUMED TO DEFINE "; 
1046 PRINT CHR|:CN> :G0SUE 1100 
1050 PRINT CKRfa4>.; 

1053 PRINT " V RS R FUNCTION OF X " 

1056 PRINT CHR*':;N> : OOSUB 1100 

1060 PRINT CHR*a73;'.: : FOR J = 1 TO :32 

1070 PRINT CKR$a92> J : NEXT: PRINT CHR*<1S9> 

10SS RETURN 

1100 PRINT CHR* '::w:)^SPC< 32 CI-IR* aJ >: RETURN 
4970 REM 

4980 REM SUBROUTINE RT 5000 MUST EE SET 
4996 f;:EM 

5000 REM *** V=F(;X;' GOES HERE 
5999 RETURN 

RERDV. 



EASY CHANGES 

1 . You may want the program to self-scale the Y axis for you. 
That is, you want it to use the minimum and maximum Y 
values that it finds as the limits on the Y axis. This can be ac- 
complished by adding the following line: 



933 PRINT" 



MID 



- "JVM 



835 YU = MX: YL = MN:RETURN 
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2. Do you sometimes forget to enter the subroutine at line 5000 
despite the introductory warning? As is, the program will 
plot the straight line Y = if you do this. If you want a more 
drastic reaction to prevent this, change line 5000 to read 

5000 Y = 1/0 

Now, if you don't enter the actual subroutine desired, the 
program will stop and print the following message after you 
enter the X scaling values. 

7DIVISION BY ZERO ERROR IN 5000 



MAIN ROUTINES 

150- 170 Initializes constants. 

200- 210 Displays introductory warning. 

220- 280 Mainline routine— gets X scaling from user and 
calls various subroutines. 

300- 486 Subroutines to draw graph axes and scale labeling. 

500- 670 Subroutine to plot the function. 

700- 740 Subroutine to determine the plotting position for Y. 

800- 880 Subroutine which determines the minimum, max- 
imum Y values; gets Y scale from user. 

900- 980 Subroutine which displays the scaling parameters, 

asks user if he wants the graph re-plotted. 
1000-1100 Subroutines to display the introductory warning. 
5000-5999 User supplied subroutine to evaluate Y as a func- 
tion of X. 

MAIN VARIABLES 

CI Base Poke argument for color setting. 

CO Color for current graph point. 

C2 Color for normal graph point. 

C3 Color for error graph point. 

XL.XM, Lower, middle, upper scale values of X. 

XU 

YL,YM, Lower, middle, upper scale values of Y. 
YU 

DX.DY Scale increments of X,Y. 

X.Y Current values of X,Y. 
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c 


Poke argument for the plot origin. 


PC 


Poke argument for normal plotting. 


PB 


Poke argument for off-axis plotting. 


PK 


Peek value. 


W 


CHR$ argument. 


TB.XV 


Tab arguments. 


F 


Y position flag (O = down, 1 = up). 


V 


Value of X or Y in scale units. 


D 


Integer value of V. 


MN.MX 


Minimum, maximum values of Y. 


A$ 


String representation of axis numbers. 


A 


Length of A$. 


NL 


Number of lines to print. 


Q$ 


User reply string. 


J 


Loop index. 



SUGGESTED PROJECTS 

1. Determine and display the values of X at which the mini- 
mum and maximum values of Y occur. 

2. After the graph is plotted, allow the user to obtain the exact 
value of Y for any given X. 

3. Expand the graph to a 30 character width in the X direction. 
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INTEGRATE 



PURPOSE AND DEFINITION 

The need to evaluate integrals occurs frequently in much 
scientific and mathematical work. This program will numeri- 
cally integrate a function that you supply using a technique 
known as Simpson's rule. It will continue to grind out successive 
approximations of the integral until you are satisfied with the ac- 
curacy of the solution. 

Mathematical integration will probably be a familiary term to 
those who have studied some higher mathematics. It is a funda- 
mental subject of second-year calculus. The integral of a func- 
tion between the limits x=l (lower limit) and x=u (upper Umit) 
represents the area under its curve; i.e. the shaded area in 
Figure 1. 

We may approximate the integral by first dividing up the area 
into rectangular strips or segments. We can get a good estimate 
of the total integral by summing the areas of these segments by 
using a parabolic fit across the top. For those who understand 
some mathematical theory, Simpson's rule may be expressed as 




x=u 



N/2 (N-2)/2 



+ 4 2 f[/+A(2j-l)]-h2 £ f[/-^2Aj] 



j=i j=i 



Here N is the number of segments into which the total interval is 
divided. N is 4 in the diagram. 
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Figure 1. The Integral of f(x). 



For a good discussion of the numerical evaluation of integrals 
see: McCracken, Dorn, Numerical Methods and Fortran Pro- 
gramming, New York, Wiley, 1964, pp. 160. Don't let the word 
"Fortran" scare you away. The discussions in the book are inde- 
pendent of programming language with only some program ex- 
amples written in Fortran. 



HOW TO USE IT 

The program begins with a warning! This is to remind you 
that you should have already entered the subroutine to evaluate 
Y as a function of X. This subroutine must start at line 7000. 
More about it shortly. 

You will then be asked to provide the lower and upper limits 
of the integration domain. Any numerical values are acceptable. 
It is not even necessary that the lower limit of X be smaller than 
the upper one. 
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The program will now begin displaying its numerical evalua- 
tions of the integral. The number of segments used in the calcu- 
lation continually doubles. This causes the accuracy of the in- 
tegral to increase at the expense of additional computation time. 
For most functions, you should see the value of the integral con- 
verging quickly to a constant (or near constant) value. This, of 
course, will be the best numerical evaluation of the integral at 
hand. 

When you are satisfied with the accuracy of the solution, you 
must hit the RUN/STOP key to terminate the program. If not, 
the program will run forever (assuming you can pay the electric 
bills). The amount of computation is approximately doubled 
each step. This means it will take the computer about the same 
amount of time to compute the next step that it took to compute 
all the previous steps. Thus, it will soon be taking the Com- 
modore 64 hours, days, and weeks to compute steps. Eventually, 
round-off errors begin degrading the results, causing a nice, con- 
stant, converged solution to change. However, the high preci- 
sion of the computer's floating point arithmetic will postpone 
this for quite a while. You will probably lose patience before see- 
ing it. 

The function to be integrated can be as simple or as compli- 
cated as you desire. It may take one line or a few hundred lines 
of code. In any case, the subroutine to express it must start at 
line 7000. This subroutine will be continually called with the 
variable X set. When it returns, it should have set the variable Y 
to the corresponding value of the function for the given X. The 
subroutine must be able to evaluate the function at any value of 
X between the lower and upper bounds of the integration 
domain. 

If your function consists of experimental data at discrete 
values of X, you must do something to enable the subroutine to 
evaluate the function at intermediate values of X. We recom- 
mend one of two approaches. First, you could write the subrou- 
tine to linearly interpolate the value of Y between the ap- 
propriate values of X. This will involve searching your data table 
for the pair of experimental X values that bound the value of X 
where the function is to be evaluated. Secondly, the program 
CURVE presented elsewhere in this section can produce an ap- 
proximate polynomial expression to fit your experimental data. 
This expression can then be easily entered as the subroutine at 
line 7000. 
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By the way, Simpson's rule is exact for any polynomial of 
degree 3 or less. This means that if the function can be written in 
the form 



where A, B, C, D are constants, the program will calculate the 
integral exactly even with only two segments. 

SAMPLE RUN 

The sample run illustrates the following integration 



This integral has the theoretical value of tt (pi) as the correct 

answer! Pi, as you may know, has the value 3.1415926535 

Before the run is started, the above function is entered at line 
7000. 




The operator enters the integrand function at line 7000 and types RUN 
to start the program. 



Y = A*X*X*X + B*X*X + C*X + D 
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The upper and lower bounds of X are entered as requested. 




The results are computed up to 1024 segments. Then the RUN/STOP 
key is pressed to terminate the ;cuiation. 
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PROGRAM LISTING 

RERDV, 



100 REM: IHTEeRflTE 

lie rem: copvright ise3 

in rem: PHIL FELEMRH.. TOM RIJGG. AND 
112 REM: WESTERN SVSTEMS GROUP 
150 CLR 
160 H = 2 

200 PRINT CHR*':;i47;' 
£10 C* = CHR$(:i:?2) 

£20 PRINT" INTEGRRL EV :E: I MPSON ■■■:=; RULE" 

230 PRINT :COSiJB 400 : GCSUE 423 

240 PRINT" WFIRHING 1 

£50 GOSUB 4:;i0:GGSUB 440 

£60 OOSUE 420 

£70 PRINT" THE SUBROUTINE AT"; 

280 PRINT" LINES".; : GOSUB 436 

290 OOSUE 440:COSUB 428 

300 PRINT" 7000-7:3'9S' IS"; 

310 PRINT" flSSUMEE TO".: 

320 GOSUE 430: GOSUB 44S 

330 GOSUB 420: PR I NT" DEFINE V"; 

340 PRINT" flS R FUNCTION OF X".; 

350 GOSUB 430: GOSUE 44© 

360 GOSUB 400: PRINT: GOTO 5@@ 

400 FOR J = 1 TO 33 

410 PRINT Ct; : NEXT: PRINT C* : RETURN 

420 PRINT C*; : RETURN 

430 PR I NT TRB < 3S ? ; C$ : RETURN 

440 GOSUE 420: GCSUE 430 : RETURN 

500 INPUT "LOWER LIMIT OF X " L 

510 INPUT "UPPER LIMIT OF X " .; U 

550 PRINT 

560 PRINT"* SEGMENTS".. "INTEGRRL" 

600 BX = (:U-L>/N:T = 

610 X = L: GOSUB 7000 :T == T+V 

620 X = U: GOSUB 7000 :T = T+V 

650 M = K/£:Z = 

660 FOR J - 1 TO M 

670 X = L+DX*C£*.J-1> : GOSUB 7060 

680 2 ~ Z+V:NEXT:T = T+4*Z 

700 M = M-1 : IF M = THEN SO0 

710 Z = 0:FOR J = 1 TO M 

720 X = L+DX*2*J : GOSUB 7000 :Z = Z+V 

730 NEXT:T = T+2*Z 

800 R = BX*T/3 

810 PRINT N..R 

820 N = N*2 
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830 GOTO 600 
6960 REM 

6970 REM *** ENTER SUBROUTINE RT 
69S0 REM LINE 7600 

6990 REM 

7000 REM *** V = r-O-O GOES HERE 
7999 RETURN 

REFlDV, 

EASY CHANGES 

1 . You might want the program to stop calculation after the in- 
tegral has been evaluated for a given number of segments. 
Adding the following line will cause the program to stop 
after the integral is evaluated for a number of segments 
greater than or equal to 100. 

815 IF N> = 100 THEN END 

Of course, you may use any value you wish instead of 100. 

2. Perhaps you would like to see the number of segments 
change at a different rate during the course of the calcula- 
tion. This can be done by modifying line 820. To increase 
the rate of change, try 

820 N = N*4 
to change it at a constant (and slower) rate, try 
820 N = N + 50 

Be sure, however, that the value of N is always even. 

3. You can experiment with the border used around the intro- 
ductory warning by changing the CHR$ argument used in 
line 210. This might be particularly desirable if you are using 
a black and white TV. To get a pleasing asterisk border, 
which looks good on a black and white set, try 

210 C$ = CHR$(42) 



MAIN ROUTINES 

150- 160 Initializes constants. 

200- 360 Displays introductory messages and warning. 
400- 440 Graphics display subroutines. 
500- 510 Gets integration limits from operator. 
550- 560 Displays column headings. 
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600- 620 Computes integral contribution from end points. 

650- 680 Adds contribution from one summation. 

700- 730 Adds contribution from other summation. 

800- 830 Completes integral calculation and displays it. In- 
creases number of segments and restarts 
calculation. 

7000-7999 Operator supplied subroutine to evaluate f(x). 



MAIN VARIABLES 



N 


Number of segments. 


J 


Loop index. 


L,U 


Lower, Upper integration limit of x. 


DX 


Width of one segment. 


T 


Partial result of integral. 


M 


Number of summations. 


Z 


Subtotal of summations. 


A 


Value of integral. 


X 


Current value of x. 


Y 


Current value of the function y = f(x). 


C$ 


String used in messages. 



SUGGESTED PROJECTS 

1. Research other similar techniques for numerical integration 
such as the simpler trapezoid rule. Then compute the in- 
tegral with this new method. Compare how the two methods 
converge toward the (hopefully) correct answer. 



SIMEQN 



PURPOSE 

This program solves a set of simultaneous linear algebraic 
equations. This type of problem often 2U'ises in scientific and 
numerical work. Algebra students encounter them regularly— 
many "word" problems can be solved by constructing the proper 
set of simultaneous equations. 

The equations to be solved can be written mathematically as 
follows: 

A,iX, + A,2X2 + . . . +A,;vX;v = Ri 

A21X, +A22X2+ ... +A2;vX„=R2 



AjviX|+ AatiXzH- . . . + AATAfXAT— RjV 

N is the number of equations and thus the number of unknowns 
also. The unknowns are denoted X, through X„. 

Each equation contains a coefficient multiplier for each un- 
known and a right-hand-side term. These coefficients (the A 
matrix) and the right-hand-sides (R, through R^) must be con- 
stants-positive, negative, or zero. The A matrix is denoted with 
doubled subscripts. The first subscript is the equation number 
and the second one is the unknown that the coefficient 
multiplies. 

HOW TO USE IT 

The program will prompt you for all necessary inputs. First, it 
asks how many equations (and thus how many unknowns) com- 
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prise your set. This number must be at least 1. If it is too large, 
an OUT OF MEMORY or BAD SUBSCRIPT error will im- 
mediately result. 

Next, you must enter the coefficients and right-hand-sides for 
each equation. The program will request these one at a time, 
continually indicating which term it is expecting next. 

Once it has all your inputs, the program begins calculating the 
solution. This may take a little while if the value of N is high. 
The program ends by displaying the answers. These, of course, 
are the values of each of the unknowns, Xi through X„. 

If you are interested, the numerical technique used to solve the 
equations is known as Gaussian ehmination. Row interchange to 
achieve pivotal condensation is employed. (This keeps maximum 
significance in the numbers.) Then back substitution is used to 
arrive at the final results. This technique is much simpler than it 
sounds and is described well in the numerical analysis books 
referenced in the bibUography. 

SAMPLE PROBLEM AND RUN 

Problem: A painter has a large supply of three different colors 
of paint: dark green, light green, and pure blue. The dark green 
is 30% blue pigment, 20% yellow pigment, and the rest base. 
The light green is 10% blue pigment, 35% yellow pigment, and 
the rest base. The pure blue is 90% blue pigment, no yellow pig- 
ment, and the rest base. The painter, however, needs a medium 
green to be composed of 25% blue pigment, 25% yellow pig- 
ment, and the rest base. In what percentages should he mix his 
three paints to achieve this mixture? 

Solution: Let Xi = percent of dark green to use, 
X2 = percent of light green to use, 
X3 = percent of pure blue to use. 

The problem leads to these three simultaneous equations to 

solve: 

0.3 X, +0.1 X2 + 0.9 X3= 0.25 
0.2X1+0.35X2 =0.25 
X, + X2+ X3 = 1.0 

The first equation expresses the amount of blue pigment in the 
mixture. The second equation is for the yellow pigment. The 
third equation states that the mixture is composed entirely of the 
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three given paints. (Note that all percentages are expressed as 
numbers from 0-1.) The problem leads to the following use of 
SIMEQN. 



SAMPLE RUN 




The operator chooses to solve a set of three simultaneous equations and 
then enters the coefficients for the first equations. 
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XI THROUGH X3 



ENTER UALUES FOR EQUATION 1 



COEFriCIENT OF XI? .3 
COEFFICIENT OF X2? .1 
COEFFICIENT OF X3? .9 
RIGHT HAND SIDE ? .25 



ENTER UALUES FOR EQUATION 2 

COEFFICIENT OF XI? .2^ 
COEFFICIENT OF X2? .35 
COEFFICIENT OF X3' 8^ 
RIGHT HAND SIDE ? .25 

EnTERMALUES FOR EQUATION 3 

COEFFICIENT OF Xl'> 1 
COEFFICIENT OF X2' 1 
COEFFICIENT OF X3',l 
RI6HT HAND SIDE i 



The coefficients for the remaining two equations are entered. 




The computer provides the solution. Rounded to the nearest percent, 
the painter should use a mixture of 55% dark green, 40% light green, 
and 5% pure blue. 
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PROGRAM LISTING 

RERDV. 



100 REM: SiriEQW 

110 rem: copyright 1383 

111 REM: PHIL FELDMRN. TOM RUGG.. RHL1 

112 REM: WESTERN SYSTEMS GROUP 
150 CLR 

208 PRINT CHR*<147;' 
210 PRINT" R SIMULTRNEOUS ".: 
220 PRINT"LINERR EGURTIOH SOLVER" 
240 PRINT 

250 INPUT "NUMBER OF EQURTIONS " .: N 

SeS H = INT'r,N> : IF N > THEN 400 

270 PRINT: PR I NT "*i4* ERROR ! **" 

280 PRINT"THERE MUST BE RT LERST 1" 

300 GOTO 240 

400 DIM fl<H..N>.R(:N>..VaO 

410 PRINT 

420 PRINT"THE";N.; "UNKNOWNS WILL EE DENOTED" 

430 PRINT"X1 THROUGH X"; 

440 F'R I NT M ID*':; STR-$ < H > , 2 > 

460 GGSUE 900: FOR J = 1 TO N 

470 PR I NT "ENTER VRLUES FOR EQURTION" .; J 

4.90 print: FOR K = 1 TO N 

500 PR I NT " COEFF I C I ENT OF X " ; M I D* STR$ C K > . 2 > J 

520 I NPUT fl < J .. I< > : NEXT 

530 INPUT"RIGHT HRND SIDE " iR<.J-:> 

540 GOSUB 900 : NEXT 

550 GOSUB 2000 

600 PR I NT "THE SOLUTION IS" 

610 PRINT: FOR J = 1 TO N 

620 PRINT" X".;MID*';STR*<J>..2>.; 

630 PRiNT"=".; v<:j> 

640 NEXT : END 

900 PR I NT: FOR L 1 TO 39 

9 1 PR I NT " - " .; : NEXT : PR I NT : RETURN 

2000 IF K > 1 THEN 2029 

20 1 i;i c 1 > = R <: 1 > /n ':: i i ) : return 

2020 FOR K = 1 TO N-1 : I = K+1 

2030 L = l< 

2040 Q = RBSCR<I.. KV:'-RES<R(:L.. l-0> 

2050 IF Q = THEN L = I 

2060 IF I < N THEN I = I+l:GOTO 2040 

2070 IF L = K THEN 2110 

20i=i0 FOR J := K TO H:G = RCK.. J) 

2090 fl < K .. J > = Fl < L .. J > : fl <: L .. J ) = Q ; NEXT 

2100 G = R<K>:RaC' = R<L>:R<L> = Q 

2110 I = K+l 

2120 Q = RCI.. lO/'FKK,. I<> :R<I,, l<> 

2130 FOR J = K+1 TO N 
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2 1 40 B < I .J > = fl < I .. J > -- Q*R < l< . J > : NEXT 

2156 R(;i> = R<:i:< ~ q*r<k> 

£160 IF I < H TKEH I. = 1 + 1. : GOTO 2129 

2170 NEXT 

£180 V'::H> = Ra-H>/fla-I.H> 

21S<8 FOR I. == H-1 7C 1 STEP-1 

2200 Q = : FOR J = I + 1 TO H 

22 1 Q =g::+r <: i .. j ) *v < j > 

2220 V C I > = ':: R a > -Q > /R U .. I ) : NEXT 

££30 NEXT : RETURN 

RERBV. 



EASY CHANGES 

You may be surprised sometime to see the program fail com- 
pletely and display this message: 

?DI VISION BY ZERO ERROR IN 2180 

This means your input coefficients (the A array) were ill- 
conditioned and no solution was possible. This can arise from a 
variety of causes; e.g. if one equation is an exact multiple of 
another, or if every coefficient of one particular unknown is 
zero. If you would like the program to print a diagnostic 
message in these cases add these lines. 

2172 IF A(N,N)< >0 THEN 2180 

2174 PRINT "BAD INPUT -"; 

2176 PRINT "NO SOLUTION POSSIBLE" 

2178 STOP 

MAIN ROUTINES 

200- 240 Clears screen and displays program title. 

250- 550 Gets input from user and calculates the solution. 

600- 640 Displays the solution. 

900- 910 Subroutine to space and separate the output. 
2000-2330 Subroutine to calculate the solution; consisting of 

the following parts: 
2000-2010 Forms solution if N = 1 . 
2020-2170 Gaussian elimination. 

2030-2110 Interchanges rows to achieve pivotal condensation. 
2180-2230 Back substitution. 
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MAIN VARIABLES 



I,J,K,L Loop indices and subscripts. 

N Number of equations (thus number of unknowns 
also). 

A Doubly dimensioned array of the coefficients. 

R Array of right-hand-sides. 

V Array of the solution. 

Q Work variable. 



SUGGESTED PROJECTS 

1 . The program modifies the A and R arrays while computing 
the answer. This means the original input cannot be dis- 
played after it is input. Modify the program to save the in- 
formation and enable the user to retrieve it after the solution 
is given. 

2. Currently, a mistake in typing input cannot be corrected 
once the RETURN key is pressed after typing a number. 
Modify the program to allow correcting previous input. 
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STATS 



PURPOSE 

Ever think of yourself as a statistic? Many times we lament at 
how we have become just numbers in various computer memo- 
ries, or we simply moan at our insurance premiums. To most 
people, the word "statistics" carries a negative connotation. To 
invoke statistics is almost to be deceitful, or at least de- 
humanizing. But really, we all use statistical ideas regularly. 
When we speak of things like "she was average height" or the 
"hottest weather in years," we are making observations in 
statistical terms. It is difficult not to encounter statistics in our 
lives, and this book is no exception. 

Of course, when used properly, statistics can be a powerful, 
analytical tool. STATS analyzes a set of numerical data that you 
provide. It will compile your list, order it sequentially, and/or 
determine several statistical parameters which describe it. 

This should prove useful in a wide variety of applications. 
Teachers might determine grades by analyzing a set of test 
scores. A businessman might determine marketing strategy by 
studying a list of sales to clients. Little leaguers always like to 
pore over the current batting and pitching averages. You can 
probably think of many other applications. 

HOW TO USE IT 

First, your data list must be entered. The program will prompt 
you for each value with a question mark. Two special inputs, 
♦END and *BACK, may be used at any time during this data in- 
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put phase. To signal the end of data, input the four character 
string, *END, in response to the (last) question mark. You must, 
of course, enter at least one data value. 

If you discover that you have made a mistake, the five charac- 
ter string, *BACK, can be used to back up the input process. 
This will cause the program to re-prompt you for the previous 
entry. By successive uses of *BACK you can return to any 
previous position. 

With the input completed, the program enters a command 
mode. You have four options to continue the run: 

1) List the data in the order input 

2) List the data in ranking order 

3) Display statistical parameters 

4) End the program 

Simply input the number 1, 2, 3, or 4 to indicate your choice. If 
one of the first three is selected, the program will perform the 
selected function and return to this command mode to allow 
another choice. This will continue until you choose 4 to termi- 
nate the run. A description of the various options now follows. 

Options 1 and 2 provide lists of the data. Option 1 does it in 
the original input order while option 2 sorts the data from 
highest value to lowest. 

The lists are started by hitting any key when told to do so. 
Either list may be temporarily halted by hitting any key while the 
list is being displayed. This allows you to leisurely view data that 
might otherwise start scrolling off the screen. Simply hit any key 
to resume the display. This starting and stopping can be repeated 
as often as desired. When the display is completed, you must 
again hit a key to re-enter the command mode. 

Option 3 produces a statistical analysis of your data. Various 
statistical parameters are calculated and displayed. The follow- 
ing is an explanation of some that may not be familiar to you. 

Three measures of location, or central tendency, are provided. 
These are indicators of an "average" value. The mean is the sum 
of the values divided by the number of values. If the values are 
arranged in order from highest to lowest, the median is the mid- 
dle value if the number of values is odd. If it is even, the median 
is the number halfway between the two middle values. The 
midrange is the number halfway between the largest and smallest 
values. 
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These measures of location give information about the 
average value of the data. However, they give no idea of how the 
data is dispersed or spread out around this "average." For that 
we need "measures of dispersion" or as they are sometimes call- 
ed, "measures of variation." The simplest of these is the range 
which is just the difference between the highest and lowest data 
values. Two other closely related measures of dispersion are 
given: the variance and the standard deviation. The variance is 
defined as: 

ECV.-M)^ 



Here N is the number of values, V, is value i, M is the mean 
value. The standard deviation is simply the square root of the 
variance. We do not have space to detail a lengthy discussion of 
their theoretical use. For this refer to the bibliography. Basi- 
cally, however, the smaller the standard deviation, the more all 
the data tends to be clustered close to the mean value. 

One word of warning— the first time option 2 or 3 is selected, 
the program must take some time to sort the data into numerical 
order. The time this requires depends upon how many items are 
on the list and how badly they are out of sequence. Average 
times are fifteen seconds for twenty-five items, about one min- 
ute for fifty items, about four minutes for a hundred items. The 
Commodore 64 will pause while this is occurring, so don't think 
it has hung up or fallen asleep! If you have several items on your 
list, this is the perfect chance to rob your refrigerator, make a 
quick phone call, or whatever. 
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SAMPLE RUN 



S T ft T S 

EHTeR A DATA VALUE AFTER EACH QUESTION 
HARK. 

IF VOU MAKE A MISTAKE, TYPE 
«BACK TO RE-ENTER THE LAST DATUM. 

UHEH THE LIST IS ENTERED, TVPE «€HD TO 
TERMINATE THE INPUT. 

MALUE H 1 ? ■ 



The program prompts the operator to begin entering the input data 
values. 



STATS 

EHTER A DATA VALUE AFTER EACH QUESTION 
HARK. 

IF VOU MAKE A MISTAKE. TVPE 
•BACK TO RE-ENTER THE LAST DATUM. 

MHEN THE LIST IS ENTERED, TVPE «EHD TO 
TERMINATE THE INPUT. 



VALUE 
UALUE 
UALUE 
UALUE 
VALUE 
VALUE 



98 

76 

81 .5 
97.5 
69 

»EHD 



CONTINUATION OPTIONS 

1> LIST DATA IN ORIGINAL ORDER 

2> LIST DATA IN RANKING ORDER 

3> DISPLAV STATS 

4> END PROGRAM 
MHAT NEXT ? 2 



The operator completes entering the scores of those who took a pro- 
gramming aptitude test. The actual test was given to many people, but 
for demonstration purposes, only five scores are used here. The special 
string, *END, is used to signal the end of the data. The operator then re- 
quests that the list be sorted into numerical order. 
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The operator hits a key to start the display and is shown the data list in 
ranking order. The program waits for a key to be pressed to continue. 




Later in the run, the operator selects continuation option 3. This 
calculates and displays the various statistical quantities. 
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PROGRAM LISTING 

RERriV- 



100 rem: strts 

110 rem: copvright 1983 

111 rem: phil feldmrh. tom rugg.. rhd 

112 rem: western svstems group 

140 CLR 

150 B* = "*ERCK":E* = "*END" 
160 MK = 190 

170 DIM v<mx;'..Z(;mx;' 

180 ZCO == 

200 PRINT CHR$a47> : PRINT TRB<:i2);"S T fl T S' 

210 PRINT; PRINT" EHTER R CflTR"; 

220 PRINT" VFILUE RFTER ERCH"; 

230 PRINT" QUESTION MRRK. " 

240 PRINT: PRINT" IF VOU MRKE"; 

250 PRINT" R MISTRKE. TVPC" 

260 PRINT Bf; " TO RE-ENTER"; 

270 PRINT" THE LR:::T".: 

280 PR I NT " DRTUM . " : PR I NT 

290 PRINT" WHEN THE LIST IS".: 

300 PRINT" ENTERED.. TVPE "J 

310 PRINT E*;" TO TERMINRTE".; 

320 PRINT" THE INPUT. ": PRINT 

500 N = 1 

510 IF N < 1 THEN N = 1 

520 PRINT"VRLUE #".;H.; 

530 INPUT R:t::IF R* == Et THEN 700 

540 IF R* == Ti-$ THEN H = N~1:G0T0 510 

550 V<N> = VRLCR^) 

560 IF N < MX THEN 600 

570 PRINT"* NO MORE DRTR"; 

580 PRINT" ALLOWED ! *" : N= N+1 

590 CrOT'iD 700 

600 N « N+1 ; GOTO 510 

700 N = N~l 

710 IF N > THEN 800 

720 PRINT"* NO DRTR - RUN"; 

730 PRINT" REORTEB ! *" 

74© END 

800 PRINT 

810 PR I NT "CONT: HURT I ON OPTIONS" 
820 PRINT" 1> LIST DRTR IN"; 
830 PRINT" ORIGINRL ORDER" 
840 PRINT" 2> LIST ERTR IN"; 
850 PRINT" RRHKINC ORDER" 
860 PRINT" 3> DISPLRV STRTS" 
870 PRINT" 4';' END PROORRM" 
880 INPUT"WHRT NEXT " ; Rf 
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S99 R = IHKVni.. 

300 IF R < 1 OR R > 4 THEN 800 

910 IF R = 4 THEN EN3 

S20 ON R GOSUB 1000.. 1200.. 1.500 

:i?30 GOTO 80© 

1 000 PR I NT CHR* C 1 47 •;■ : PR I NT " THE GR I G I NRL " ; 

1010 PRINT" DflTR CREEP": PRINT 

1020 PRINT N.; "TOTAL ENTRIES" 

1030 PRINT :eCSU3 2000: PRINT 

1040 PRINT" #".. "Vl=lLUE" 

1050 FOR .J = 1 TO N:F0R K = 1 TO 100 

1060 NEXT: PRINT J..V(;J> 

10?e GOSUE 2500: NEXT: GOSUB 2900 

1080 RETURN 

120S PRINT CHR*a47::' :PRINT"TKE SPTfl IN"; 

1210 PRINT" RRNKING ORDER": PR I NT 

1220 PRINT N; "TOTRL ENTRIES" 

1230 print; GOSUB 2700 : GCSUB 2000 

1 240 PR I NT : PR I NT " # " .. " VnLUE " 

1250 FOR .J = 1 TO N:FCR K = 1 TO 100 

1260 NEXT: PRINT J..V<Z(:j>> 

1270 G0SU3 2500: NEXT :GCSU3 23eQ 

1280 RETURN 

1500 PRINT CHR*a47>:NP == O : NN = : NZ = 
1505 PRINT CHR*<147> :SQ = 0-U = 
1510 PR I NT " STATIST I CRL ANRLVSIS" 
1520 PRINT 

1530 PR I NT "NUMBER OF VALUES = ";N 
1540 FOR .J = 1 TO N:W = W+V<.J) 

1550 SQ = sg+v<.j:j*v;:j) 

1560 IF V<jy > THEN NP = HP+1 

1570 IF V'::j:;' < THEN NN NN+1 

1580 IF '■/■::•!> = THEN NZ = NZ+1 

1590 NEXT:M = W,--'N:VR = 

1600 IF N = 1 THEN 1620 

1610 VA = ';;sQ-N*ri*M;'/a'J-o 

1620 SB = VR,--'3:IF VR = THEN 1650 

1630 FOR J = 1 TO 65 

1640 SB = '.•:SD+VR/SD>/2:NEXT 

1650 PRINT NP; "POSITIVE. "; 

1660 PRINT NN; "NEGATIVE.. "; 

1670 PRINT NZ; "ZERO" 

1680 GOSUB 2700 

1630 PRINT"MIN VALUE = ";V<Za-J>> 
170© PRINT"mX VALUE = ";v<za>) 
1710 Q = V'::za>>-v<z<N::o 

1720 PR I NT "RANGE == ";Q 

1730 PR I NT "SUM OF VALUES = ";W 

1740 PRINT: PR I NT "MEAN = " ; 

1750 Q = INTa-J.'-'2> + l :MD = V<:Z<Q>> 

1760 IF N/2 > I NT < N/2) THEN 1780 



I 
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1770 MB = (iV'^ZOaiiO+VCZ^Q-OXJ/t 
17i30 PRI.WT"MEr!inH = " .; ML' 

1790 Q = <v<za;o+vc2<N::>>/2 

ISeO PRINT"riir:-RRHGE = ".;Q: PRINT 

1810 PRINT"STD, DEVIRTIOH = "iST! 

1820 PRlNT"VflRIRHCE = " ; V Fl 

1830 GOSUE 2300 : RETURK 

2000 PRINT" UHILE THE LIST IG"; 

2010 PRINT" BISPLRVIHG. " 

2020 PRINT"VCU CRN HIT RNV KEY".; 

2030 PRINT" TO CRUSE R" 

2040 PRINT"TEMPnRRRV HRLT. THE"; 

2050 PRINT" rilSPLRV WILL" 

2060 PR I NT "RESUME WHEN VCU HIT"; 

2070 PRINT" RKOTHER KEV. ": PRINT 

2030 PRINT "HIT RNV KEV TO STRRT" 

2030 GET m 

2100 IF R* = "" THEN 2030 
2110 RETURN 
2500 GET R* 

2510 IF R* = "" THEN RETURN 
2520 GET R* 

2530 IF R* » "" THEN 2520 
2540 RETURN 

2700 IF Za3> 1 THEN RETURN 
2710 FOR J 1 TO N:Z'::J> = J : NEXT 
2720 IF N = 1 THEN RETURN 
2730 NM = N-l:FOR K = 1 TO N 
2740 FOR J = 1 TO NM;N1 = Z<J> 
2750 N2 a ZCJ+1> 

2760 IF V'-NO > V(;N2> THEN £786 

2770 zcj+n = ni:Z';;j::' = n£ 

2780 NEXT; NEXT :Z'::0;' = l: RETURN 
2900 PRINT 

2310 PR INT "HIT RNV KEV"; 
2320 PRINT" TO CONTINUE"; 
2330 GET R* 

2340 IF R* = "" THEN 2330 
2350 PRINT: RETURN 

RERDV. 



EASY CHANGES 

1. The program arrays are currently dimensioned to allow a 
maximum of 100 data items. To achieve up to 1000 data 
items, make this change: 

160 MX = 1000 
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2. You may wish to change the special strings that signal termi- 
nation of data input and/or the backing up of data input. 
These are controlled by the variables E$ and B$, respec- 
tively. They are set in line 150. If you wish to terminate the 
data with /DONE/ and to back up with /LAST/ for exam- 
ple, line 150 should be: 

150 B$ = "/LAST/":E$ = "/DONE/" 

3. You may wish to see your lists sorted from smallest value to 
largest value instead of the other way around, as done now. 
This can be accomplished by changing the "greater than" 
sign (>) in Une 2760 to a "less than" sign (<). Thus: 

2760 IF V(N1)< V(N2) THEN 2780 

This will, however, cause a few funny things to happen to 
the statistics. The real minimum value will be displayed 
under the heading "maximum" and vice-versa. Also, the 
range will have its correct magnitude but with an erroneous 
minus sign in front. To cure these afflictions, make these 
changes also: 

1690 PRINT "MIN VALUE = ";V(Z(1)) 
1700 PRINT "MAX VALUE = ";V(Z(N)) 
1710 Q = V(Z(N))-V(Z(1)) 



MAIN ROUTINES 

140- 180 Initializes constants and dimensioning. 

200- 320 Displays messages. 

500- 600 Gets data from the user. 

700- 740 Checks that input contains at least one value. 

800- 930 Command mode— gets user's next option and does 

a GOSUB to it. 
1000-1080 Subroutine to list data in the original order. 
1200-1280 Subroutine to list data in ranking order. 
1500-1830 Subroutine to calculate and display statistics. 
2000-2110 Subroutine to display various messages. 
2500-2540 Subroutine to allow user to temporarily start and 

stop display listing. 
2700-2780 Subroutine to sort the list in ranking order. 
2900-2950 Subroutine to detect if user has hit a key to 
continue. 
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MAIN VARIABLES 



MX Maximum number of data values allowed. 

V(MX) Array of the data values. 

Z(MX) Array of the sorting order. 

N Number of data values in current application. 

B$ Flag string to back up the input. 

E$ Flag string to signal end of the input. 

R$ User input string. 

NM N-1. 

R Continuation option. 

NP Number of positive values. 

NN Number of negative values. 

NZ Number of zero values. 

W Sum of the values. 

SQ Sum of the squares of the values. 

M Mean value. 

MD Median of the values. 

VA Variance. 

SD Standard deviation. 

J,K Loop indices. 

N1,N2 Possible data locations to interchange during 

sorting. 

Q Work variable. 



SUGGESTED PROJECTS 

1 . The sorting algorithm used in the program is efficient only 
when the number of list items is fairly small— less than 
twenty-five or so. This is because it does not do checking 
along the way to see when the list becomes fully sorted. If 
your lists tend to be longer than twenty-five items, you 
might wish to use another sorting algorithm more ap- 
propriate for longer Usts. Try researching other sorts and in- 
corporating them into the program. To get you started, try 
these changes: 

2730 Q = 0: FOR J = l TO N- 1:N1 = Z(J) 
2740 N2 = Z(J + 1) 

2750 IF V(N1)> = V(N2) THEN 2780 
2760 Z(J-I-1) = N1:Z(J) = N2 
2770 Q=l 

2780 NEXT:IF Q = 1 THEN 2730 
2790 Z(0) = 1:RETURN 



STATS 



285 



If your lists are short, this routine will probably be a little 
slower than the current one. However, for longer lists it will 
save proportionately more and more time. 
2. Many other statistical parameters exist to describe this kind 
of data. Research them and add some that might be useful 
to you. One such idea is classifying the data. This consists of 
dividing the range into a number of equal classes and then 
counting how many values fall into each class. 



Section 6 
Miscellaneous Programs 



INTRODUCTION TO MISCELLANEOUS PROGRAMS 

These programs show how simple programs can do interesting 
things. Most of them have a mathematical flavor. They are short 
and, as such, would be useful for study for those just learning 
BASIC in particular or programming in general. 

Monte Carlo simulation involves programming the computer 
to conduct an experiment. (It doesn't involve high-stakes gam- 
bling!) PI shows how this technique can be used to calculate an 
approximation to the famous mathematical constant pi. 

PYTHAG will find all right triangles with integral side 
lengths. A clever algorithm is utilized to do this. 

Have you ever looked around your classroom or club meeting 
and wondered if any two people had the same birthdate? 
BIRTHDAY will show you what the surprising odds are. 

Very high precision arithmetic can be done on the Com- 
modore 64 with the proper "know-how." POWERS will 
calculate the values of integers raised to various powers; not to 
the computer's standard nine digit precision, but up to 250 full 
digits of precision. 

Your computer can play music! TUNE allows you to enter 
tunes into your computer in a simple, convenient manner. Then 
your computer will play them for you. 
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BIRTHDAY 



PURPOSE 

Suppose you are in a room full of people. What is the proba- 
bility that two or more of these people have the same birthday? 
How many people have to be in the room before the probability 
becomes greater than 50 percent? We are talking only about the 
month and day of birth, not the year. 

This is a fairly simple problem to solve, even without a com- 
puter. With a computer to help with the calculations, it becomes 
very easy. What makes the problem interesting is that the correct 
answer is nowhere near what most people immediately guess. 
Before reading further, what do you think? How many people 
have to be in the room before there is better than a 50-50 chance 
of birthday duplication? 50? 100? 200? 

HOW TO USE IT 

When you RUN the program, it starts by displaying headings 
over two columns of numbers that will be shown. The left col- 
umn is the number of people in the room, starting with one. The 
right column is the probability of birthday duplication. 

For one person, of course, the probability is zero, since there 
is no one else with a possible duplicate birthday. For two people, 
the probability is simply the decimal equivalent of '/36s (note that 
we assume a 365 day year, and an equal likelihood that each per- 
son could have been born on any day of the year). 

What is the probability of duplication when there are three 
people in the room? No, not just Vm. It's actually 

l-("y365 times 3"/365) 
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This is simply one minus the probability of no duplicate 
birthdays. 
The probability for four people is 

I -('"/365 times '"/365 times "^/jes) 
The calculation continues like this, adding a new term for 
each additional person in the room. You will find that the result 
(probability of duplication) exceeds .50 surprisingly fast. 

The program continues with the calculation until there are 60 
people in the room. You will have to RUN/STOP the program 
long before that to see the point where the probability first ex- 
ceeds 50 percent. 



SAMPLE RUN 




After the probability of 14 people with the same birthday is shown, the 
RUN/STOP key is pressed to terminate the run. 
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PROGRAM LISTING 

RERDV. 

100 rem: eirtherv 

lie REM: COPVRICHT 1983 

111 rem: TOM RIJGG, PHIL FELIJMFlH,. AND 

112 REM: WESTERN ;3VSTEMS GROUP 
120 PRINT CHR$a47;' 

130 PR I NT "NO, OF PROB. OF 2 OR MORE" 

140 PR I NT "PEOPLE WITH SRME EIRTHDRV" 

150 Q=l 

160 FOR N=l TO 60 

170 PRINT N.. 1-13 

180 Q=Q*'::365~N;',-'365 

ISe NEXT N 

200 END 

RERDV. 



EASY CHANGES 

Change the constant value of 60 at the end of line 160 to alter 
the range of the number of people in the calculation. For exam- 
ple, change it to 100 and watch how fast the probability 
approaches 1. 

MAIN ROUTINES 

120-140 Displays headings. 
150 Initializes Q to 1. 

160-190 Calculates probability of no duplication, then dis- 
plays probability of duplication. 

MAIN VARIABLES 

N Number of people in the room. 

Q Probability of no duplication of birthdays. 

SUGGESTED PROJECTS 

Modify the program to allow for leap years in the calculation, 
instead of assuming 365 days per year. 



I 
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PI 



PURPOSE AND DISCUSSION 

The Greek letter pi, tt, represents probably the most famous 
constant in mathematical history. It occurs regularly in many 
different areas of mathematics. It is best known as the constant 
appearing in several geometric relationships involving the circle. 
The circumference of a circle of radius r is 27rr, while the area 
enclosed by the circle is ttt^ . 

Being a transcendental number, pi cannot be expressed exactly 
by any number of decimal digits. To nine significant digits, its 
value is 3.14159265. Over many centuries, man has devised 
many different methods to calculate pi. 

This program uses a valuable, modern technique known as 
computer simulation. The name "simulation" is rather self- 
explanatory; the computer performs an experiment for us. This 
is often desirable for many different reasons. The experiment 
may be cheaper, less dangerous, or more accurate to run on a 
computer. It may even be impossible to do in "real life." Usu- 
ally, however, the reason is that the speed of the computer 
allows the simulation to be performed many times faster than 
actually conducting the real experiment. 

This program simulates the results of throwing darts at a 
specially constructed dartboard. Consider Figure 1 which shows 
the peculiar square dartboard involved. The curved arc, outlin- 
ing the shaded area, is that of a circle with the center in the lower 
left hand corner. The sides of the square, and thus the radius of 
the circle, are considered to have a length of 1 . 
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Figure 1. The Pi Dartboard. 

Suppose we were able to throw darts at this square target in 
such a way that each dart had an equal chance of landing any- 
where within the square. A certain percentage of darts would 
result in "hits," i.e. land in the shaded area. The expected value 
of this percentage is simply the area of the shaded part divided 
by the area of the entire square. 

The area of the shaded part is one fourth of the area the entire 
circle would enclose if the arc were continued to completely 
form the circle. Recall the area of a circle is xr^ where r is the 
radius. In our case, r = 1 , and the area of the entire circle would 
simply be tt. The shaded area of the dartboard is one fourth of 
this entire circle and thus has an area of 7r/4. The area of the 
square is s^, where s is the length of a side. On our dartboard, 
s = 1, and the area of the whole dartboard is I. 



1 



PI 



295 



Now the expected ratio of "hits" to darts thrown can be 
expressed 

o A # hits shaded area 7r/4 tt 

RATIO = -^—r = r- = — ;— = 7 

# thrown entire area 1 4 

So we now have an experimental way to approximate the value 
of 7r. We perform the experiment and compute the ratio of "hits" 
observed. We then multiply this number by 4 and we have 
calculated tt experimentally. 

But instead of actually constructing the required dartboard 
and throwing real darts, we will let the Commodore 64 do the 
job. The program "throws" each dart by selecting a separate ran- 
dom number between and 1 for the X and Y coordinates of 
each dart. This is accomplished by using the built-in RND func- 
tion of Basic. A "dart" is in the shaded area if -1- < 1 for it. 

So the program grinds away, continually throwing darts and 
determining the ratio of "hits." This ratio is multiplied by 4 to 
arrive at an empirical approximation to ir. 



HOW TO USE IT 

The program requires only one input from you. This is the 
"sample size for printing," i.e. how many darts it should throw 
before printing its current results. Any value of one or higher is 
acceptable. 

After you input this number, the program will commence the 
simulation and display its results. A cumulative total of "hits," 
darts thrown, and the current approximation to ir will be dis- 
played for each multiple of the sample size. 

This will continue until you press the RUN/STOP key. When 
you are satisfied with the total number of darts thrown, press the 
RUN/STOP key to terminate the program execution. 
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SAMPLE RUN 




The operator selects 150 for the printing sample size. 




After 1650 darts are "thrown", the user presses the RUN/STOP key to 
terminate the run. 
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PROGRAM LISTING 



RERDV. 



1.08 REM: PI 

110 REM: COPYRIGHT 1983 

111 REM: PHIL FELDMRN.. TON RUGG.. RHD 

112 REM: WESTERN SYSTEMS GROUP 
150 Q=RND<~Ti::' 

160 T==0:TI-1=O 
:"|00 G0SU3 600 

310 INPUT "SAMPLE SIZE FOR PRINTING" ;NP 
320 NP=IHT';NP> : IP NP<1 THEN 300 
330 GOSUE 600 

340 PRINT"* HITS # THROWN" .; TRE< 25;' ; CHR*< 255 > 

369 FOR J=l TO 6 : GOSUB 700 : NEXT 

370 PRINT TRB'::9;:'.; 

375 FOR J=l TO S : GOSUB 700 : NEXT : PRINT TRB<25>.; 
3S0 GOSUB 700: PR I NT 

400 GOSUE 500 : TH=TH+NH : T=T+NP : P=4*TH/T 

410 PRINT TH..T.P 

420 GOTO 400 

500 NH=0:FOR J=l TO NP 

5 1 X=RND 1 > : Y=RND 1 > 

520 IF CX^X+V^YXl THEN NH«HH+1 

530 NEXT: RETURN 

600 PRINT CHR*<147>;TnB<:6); 

610 PR I NT "R CRRTECRRD PI CRLCULRTOR" 

620 PRINT : PRINT : RETURN 

700 PRINT CHR$a.96;'; : RETURN 

READY, 

EASY CHANGES 

1 . If you want the program to always use a fixed sample size, 
change line 310 to read 

310 NP = I50:GOTO 370 

Of course, the value of 150 given here may be changed to 
whatever you wish. 

2. If you want the program to stop by itself after a certain 
number of darts have been thrown, add the following two 
lines: 

315 INPUT'TOTAL # DARTS TO THROW"; ND 
415 IF T> =ND THEN END 
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This will ask the operator how many total darts should be 
thrown, and then terminate the program when they have 
been thrown. 

MAIN ROUTINES 

150-160 Initializes constants. 

300-380 Gets operator input, displays column headings. 



400-420 


Calculates and displays results. 


500-530 


Throws NP darts and records number of " 


600-620 


Clears screen and displays program title. 


700 


Draws underlining characters. 


MAIN VARIABLES 


T 


Total darts thrown. 


TH 


Total "hits." 


NP 


Sample size for printing. 


NH 


Number of hits in one group of NP darts. 


P 


Calculated value of pi. 


Q 


Work variable. 


X,Y 


Random-valued coordinates of a dart. 


J 


Loop index. 



SUGGESTED PROJECTS 

1 . Calculate the percentage error in the program's calculation 
of pi and display it with the other results. The percentage er- 
ror, PE, can be calculated as: 

PE= 100*ABS(P-x)/x 

2. The accuracy of this simulation is highly dependent on the 
quahty of the computer's random number generator. Try re- 
searching different algorithms for pseudo random number 
generation. Then try incorporating them into the program. 
Change line 510 to use the new algorithm(s). This can actu- 
ally be used as a test of the various random number genera- 
tors. Gruenberger's book, referenced in the bibliography, 
contains good material on various pseudo random number 
generators. 



POWERS 



PURPOSE 

By now you have probably learned that the Commodore 64 
keeps track of nine significant digits when dealing with numbers. 
For integers less than one billion (1,000,000,000), the 
Commodore 64 can retain the precise value of the number. But 
for larger integers the Commodore 64 only keeps track of the 
most significant (leftmost) nine digits, plus the exponent. This 
means, of course, that there is no way you can use the computer 
to deal with precise integers greater than one billion, right? 

Wrong. 

This program calculates either factorials or successive powers 
of an integer, and can display precise results that are up to 250 
digits long. By using a "multiple-precision arithmetic" tech- 
nique, this program can tell you exactly what 973 to the 47th 
power is, for example. 

HOW TO USE IT 

The program first asks you how many digits long you want the 
largest number to be. This can be any integer from 1 to 250. So, 
for example, if you enter 40, you will, get answers up to forty 
digits long. 

Next you are asked for the value of N. If you respond with a 
value of 1, you are requesting to be shown all the factorials that 
will fit in the number of digits you specified. First you will get 
one factorial, then two factorial, and so on. In case you have 
forgotten, three factorial is 3 times 2 times 1, or 6. Four factorial 
is 4 times 3 times 2 times 1 , or 24. 
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If you enter an N in the range from 2 through 100,000, you are 
requesting the successive powers of that number up to the Hmit 
of digits you specified. So, if you provide an N of 23, you will 
get 23 to the first power, then 23 squared, then 23 cubed, and 
so on. 

Finally, after it has displayed the largest number that will fit 
within the number of digits you entered, the program starts 
over. The larger the number of digits you ask for, the longer it 
will take the program to calculate each number. If you enter 
zero, the program ends. 



SAMPLE RUN 




The operator wants answers up to 35 digits long in the calculations of 
the powers of 98789. The program calculates numbers up to 98789' and 
then asks for the number of digits again (in preparation for the next 
calculation the operator requests). 



POWERS 



301 



PROGRAM LISTING 

RERDV. 



100 rem: powers 

110 REM: COf="T'RIGHT i.S33 

111 REM: TOM RUGG. PHIL FELDMRN.. RHD 

112 REM: WESTERN SVSTEMS GROUP 
120 PRINT C:HR*a47> 

1 30 PR I l-JT TRE < 1 ) .: CHRf <: 1 S > J 
140 PRiHT"P0WER:3 RND FACTOR I RLS" 
150 PRINT: PRINT 
160 DIM N';2S5> 

170 INPUT "NUMBER OF DIGITS" ;M 
1S0 M=INT<M> : IF M>250 THEN 170 
185 IF M < 1 THEN END 
190 PRINT: INPUT "N".;N 
200 N=INT';N> 

210 IF N> 100000 THEN 190 
215 IF N 1 THEN 190 
220 PRINT 

230 F=0:IF N=l THEN F=l : PRINT"FflCTORIRLS" 

240 IF F=0 THEN PR I NT "POWERS OF";N 

250 T= 1 : K:= 1 : N ) =N 

260 FOR J=0 TO M 

270 IF NCJXT THEN 300 

2S0 Q= I NT <: N <: J > /T : W=N ( J ) -Q*T 

290 N < J > =W : N C J+ 1 > =N J+ 1 > +G 

300 NEXT 

310 J=M+1 

:320 IF N'.-:J>=0 THEN J=J-l:eOTO 320 

330 IF J>=M THEN 500 

340 D=0:PRINT K;TflE<7>.; 

350 N*-STR* < N C J > > : N$---R I GHT* C Nf .. 1 ) 

360 D=D+l:lF D>30 THEN D^--n : PRINT : PRINT TAB (7;'; 

370 PRINT N*.; :J=..T--1 : IF J>=0 THEN 350 

380 IF F=l THEN N=N+1 

390 I<=l<+1 : PR INT 

400 FOR J=0 TO M:N';j:)=N<J>*N:NEXT 
410 GOTO 260 

500 FOR J=l TO 255 :N<J;'=0: NEXT 
510 PRINT: GOTO 170 

RERDV - 

EASY CHANGES 

1 . To change the program so that it always uses, say, fifty digit 
numbers, remove lines 170 and 180, and insert this line: 

170 M = 50 
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2. To clear the screen before the output begins being displayed, 
insert this line: 

220 PRINT CHR$(147) 



MAIN ROUTINES 


120-160 


Displays title. Sets up array for calculations. 


170-240 


Asks for number of digits and N. Checks validity of 




responses. Displays heading. 


250 


Initializes variables for calculations. 


260-300 


Performs "carrying" in N array so each element has 




a value no larger than 9. 
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element. 


330 


Checks to see if this value would be larger than the 




number of digits requested. 


340-370 


Displays counter and number. Goes to second line 




if necessary. 


380-390 


Prepares to multiply by N to get next number. 


400-410 


Multiplies each digit in N array by N. Goes back to 




line 260. 


500-510 


Zeroes out N array in preparation for next request. 




Goes back to 170. 


MAIN VARIABLES 


N 


Array in which calculations are made. 


M 


Number of digits of precision requested by 




operator. 


N 


Starting value. If 1, factorials. If greater than 1, 




powers of N. 


F 


Set to zero if powers, 1 if factorials. 


T 


Constant value of 10. 


K 


Counter of current power or factorial. 


J 


Subscript variable. 


Q,W 


Temporary variables used in reducing each integer 




position in the N array to a value from to 9. 


D 


Number of digits displayed so far on the current 




line. 


N$ 


String variable used to convert each digit into dis- 




playable format. 
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SUGGESTED PROJECTS 

1. Determine the largest N that could be used without errors 
entering into the calculation (because of intermediate results 
exceeding one billion), then modify line 210 to permit values 
that large to be entered. 

2. Create a series of subroutines that can add, subtract, multi- 
ply, divide, and exchange numbers in two arrays, using a 
technique like the one used here. Then you can perform high 
precision calculations by means of a series of GOSUB 
statements. 
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PYTHAG 



PURPOSE 

Remember the Pythagorean Theorem? It says that the sum of 
the squares of the two legs of a right triangle is equal to the 
square of the hypotenuse. Expressed as a formula, it is a^ + 
= c2. The most commonly remembered example of this is the 
3-4-5 right triangle (3^ +4^ = 5^). Of course, there are an infinite 
number of other right triangles. 

This program displays integer values of a, b, and c that result 
in right triangles. 

HOW TO USE IT 

To use this program, all you need to do is RUN it and watch 
the "Pythagorean triplets" (sets of values for a, b, and c) come 
out. The program displays twenty sets of values on each screen, 
and then waits for you to press any key (except RUN/STOP) 
before it continues with the next twenty. It will go on indefinitely 
until you press the RUN/STOP key. 

The left-hand column shows the count of the number of sets 
of triplets produced, and the other three columns are the values 
of a, b, and c. 

The sequence in which the triplets are produced is not too ob- 
vious, so we will explain how the numbers are generated. 

It has been proved that the following technique will generate 
all primitive Pythagorean triplets. ("Primitive" means that no set 
is an exact multiple of another.) If you have two positive integers 
called R and S such that: 
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1 . R is greater than S, 

2. R and S are of opposite parity (one is odd and the other is 

even), and 

3. R and S are relatively prime (they have no common integer 
divisors except 1), 

then a, b, and c can be found as follows: 

a = R2-S2 
b = 2RS 
c = R2 + S2 

The program starts with a value of 2 for R. It generates all 
possible S values for that R (starting at R - 1 and then decreas- 
ing) and then adds one to R and continues. So, the first set of 
triplets is created when R is 2 and S is 1 , the second set when R is 
3 and S is 2, and so on. 



SAMPLE RUN 




The program shows the first screen of Pythagorean triplets. 
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PROGRAM LISTING 



READY . 



100 REM: PVTHFIC 

110 REM: COPVRIGI-IT 1SB3 

111 REM: TOM RUGG.. PHIL FELEMRN.. RHD 

112 rem: WESTERN SYSTEMS GROUP 
130 R=2:K=1 :D==9 

150 GOSUB 350 

180 S=R-1 

190 fl=R*R-S*S 

£00 S«2*R*S 

210 C=--R*R+S*S 

220 PRINT k:.R.,B..C 

230 K=l<+1 :D~Ii+i :G0T0 400 

240 S=S-2:IF S<:=0 THEN R=R-:-l:GOTO 130 

250 S1=S 

255 E1==R 

260 n=inT';;ei/si::' 

270 R1==E1--';S1*N> 

280 IF R1O0 THEN E1=S1 : S1=R1 : OOTO 260 

300 IF SlOl THEN 240 

320 GOTO 190 

350 PRINT CHR$(:i47>.; 

3^30 PRINT"**** PYTHRGORERN TRIPLETS ***.*" 
370 PRINT 

380 PR I NT " COUNT " .. " — R— " ., " — -B " .. " ■— C-- " 

390 RETURN 

400 IF D<20 THEN £40 
410 PRINT 

420 PR I NT "PRESS RNY KEY TO CONTINUE"; 

430 GET R$: IF Rf="" THEN 430 

440 GOSUE 350 

450 D=0 

460 GOTO 240 

RERDV . 



EASY CHANGES 

1 . Alter the starting value of R in line 130. Instead of 2, try 50 



or 100. 
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2. If you want, you can change the number of sets of triplets 
displayed on each screen. Change the 20 in line 400 to a 10, 
for example. You probably won't want to try a value greater 
than 20, since that would cause the column headings to roll 
off the screen. 

3. To make the program continue without requiring you to 
press a key for the next screen of values, insert either of 
these lines: 

405 GOTO 440 

or 

405 GOTO 450 

The first will display headings for each screen. The second 
will only display the headings at the beginning of the run. 

MAIN ROUTINES 



130 Initializes variables. 

150 Displays the title and column headings. 

180 Calculates first value of S for current R value. 

190-210 Calculates A, B, and C. 
220-230 Displays one line of values. Adds to counters. 
240 Calculates next S value. If no more, calculates next 

R value. 

250-300 Determines if R and S are relatively prime. 
350-390 Subroutine to display title and column headings. 
400-460 Checks if screen is full yet. If so, waits for key to be 
pressed. 

MAIN VARIABLES 

R,S See explanation in "How To Use It." 

K Count of total number of sets displayed. 

D Count of number of sets displayed on one screen. 

A,B,C Lengths of the three sides of the triangle. 

SI ,B1 , Used in determining if R and S are relatively prime. 

R1,N 

R$ Key pressed by operator to continue. 
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SUGGESTED PROJECTS 

1. In addition to displaying K, A, B, and C on each line, dis- 
play R and S. You will have to squeeze the columns closer 
together. 

2. Because this program uses integer values that get increas- 
ingly large, eventually some will exceed the Commodore 64's 
integer capacity and produce incorrect results. Can you 
determine when this will be? Modify the program to stop 
when this occurs. 
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TUNE 



PURPOSE 

The Commodore 64 has tremendous sound capabiHties. This 
program allows you to experiment with simple computer tune- 
playing. 

HOW TO USE IT 

As shown in the Program Listing, TUNE currently plays a 
familiar portion of Puff, The Magic Dragon. We'll explain how 
to enter other tunes in a moment. 

When you RUN the program, it displays the title of the pro- 
gram at the top of the screen and immediately begins playing its 
tune. Of course, you have to be using a television with a speaker, 
and its volume control needs to be set loud enough for you to 
hear the music. 

As each note is played, a character is plotted on the TV screen, 
starting from the left and moving to the right. The vertical posi- 
tion of the point corresponds with the pitch of the note— high 
notes are near the top, and low notes near the bottom. If the 
tune has more than 20 notes, the display goes to the right edge of 
the screen and begins overlaying the notes at the left edge. The 
characters displayed are: W = whole note, D = dotted half note, 
H = half note, Q = quarter note, E = eighth note, and R = rest. 

This graphics display gives you something to watch while the 
tune is being played, and for many tunes it clearly shows you the 
patterns and symmetry that make music enjoyable. 

After you get tired of hearing Puff, you will undoubtedly 
want to enter some tunes of your own choosing. With only a lit- 
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tie musical training, you can translate a simple piece of sheet 
music into the notation needed by this program. We may be 
crazy, but we think we can give you enough of an introduction 
to reading music in the next few paragraphs that you will be able 
to figure out how to understand simple musical notation and 
copy a tune into this program. For more details on reading 
music, refer to an introductory music text. 

First, turn to Appendix M of your Commodore 64 User's 
Guide manual. The main thing to learn from Appendix M is the 
frequencies for each musical note. These frequencies will be used 
as POKE values within the program. 

The next thing we need to know is the duration of each note. 
A quarter note is represented by a solid black oval (note-head) 
with a "stick" (stem) attached. The most common notes in most 
music are whole notes, half notes, quarter notes and eighth 
notes. The duration of each of these notes, relative to the others, 
is just as you would expect from their fraction-like names. For 
example, a quarter note lasts twice as long as an eighth note, but 
only half as long as a half note. 

A half note looks like a hollow quarter note (i.e., an oval on a 
stick). A whole note is an oval with no stick. An eighth note 
looks like a quarter note with a flag on the stick. If two eighth 
notes are next to each other, they are usually connected by one 
bar rather than having individual flags. 

A chord is several notes played simultaneously. It looks like a 
stack of ovals on one stick. The Commodore 64 can play chords, 
but we have chosen to make that one of your special projects. 
For our example, we will play the top note on the stack when we 
encounter a chord. This is the simplest way to follow the melody 
like a one-finger piano player. 

And now a word about sharps and flats. The white keys on a 
piano are the natural notes. The black keys are the accidentals 
(sharps and flats). On a musical score, sharps are indicated by 
the pound sign ("#"), and flats by a symbol that resembles a 
lower case "b." Naturals are assumed when neither the sharp or 
flat symbol is used. When a particular note is afways sharp, for 
example, in a tune, this is indicated at the far left of the musical 
staff (the five parallel lines upon which the notes are drawn), 
rather than next to every occurrence of the note. This applies to 
any octave the note is played in. For example, if F sharp is in- 
dicated at the left of the staff, all F's are sharp, whether on that 
same line of the staff or not. When an F should be a natural in- 
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stead of a sharp, the natural symbol is used next to the F. The 
natural symbol is drawn in various ways, but generally looks like 
a little rectangle. 

With these fundamentals in mind, let's look at how we enter 
music into the TUNE program. The DATA statements that rep- 
resent the tune to be played are located between lines 1000 and 
2999 of the program. To enter your own music, delete those lines 
so you can begin entering yours. Leave line 3000 as it is. 

For each note of your tune, the computer needs to know two 
things: the note to be played and its duration. The DATA 
statements you enter after line 1000 provide this information. 
Each entry you make is separated by commas, and indicates high 
frequency, low frequency and duration. For each note to be 
played, 3 data items are supplied; high frequency (0 for rest), 
low frequency (0 for rest) and duration. Duration is specified as; 
4 = whole note, 3 for a dotted half note, 2 for a half note, 1 for a 
quarter note, and .5 for an eighth note. The other items the 
Commodore 64 requires to make music are ATTACK/DECAY, 
SUSTAIN/RELEASE, WAVEFORM and VOLUME. VOL- 
UME is set at the beginning of the program in line 200. AT- 
TACK/DECAY is set at 136 (ATK4(128) and DEC4(8)). SUS- 
TAIN/RELEASE is set at 136 (SUS4(128) and REL4(8)). The 
WAVEFORM is set at 17 (Triangle). These values are arbitrary 
on our part and you will probably want to experiment with them 
(See EASY CHANGES). The Commodore 64 User's Guide 
(Chapter 7) contains an extensive discussion on creating sound 
with the Commodore 64. 

That covers all the rules. All you need to do is enter the DATA 
statements for your tune after line 1000. It is generally a good 
idea to leave some space between your line numbers, in case you 
discover later that you need to add some more lines. Starting 
with Une 1000, and adding 10 or 20 for each new line number is a 
good approach. 

Note that we used a separate DATA statement for each bar {or 
measure, the space between two vertical lines on the staff), 
which helps keep things organized in case we have to go back to 
fix a mistake. 

There is a great deal more about music that we cannot cover in 
this Umited space, but we hope this introduction has been 
enough to get you going. Be sure to read the Easy Changes sec- 
tion of this chapter to see several useful modifications you can 
easily make. 
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SAMPLE RUN 




The program begins playing its tune and displaying a letter for each note 
sounded. 



PROGRAM LISTING 



RERDV. 



100 rem: tune 

lie REM: COPVRIOHT 1983 

111 REM: TOM RUGG,. PHIL, FELEMFlH., RNr: 

112 REM: WESTERN SYSTEMS GROUP 

120 N a. > =5 : N C 2 > = 1 T' : H <: 3 > =8 : N <; 4 :? ==4 : H c; 5 > =23 

1 30 C <. I ':< ~3 : C i 2 > =4 : C 3 > =5 : < 4 > =6 : C < 5 > =7 

140 POKE 53280. 9: POKE 53281.2 

180 ;«;==42 : S= 1 024 : C=552.96 

190 DT ~ 300 

200 POKE 54296. 15 

210 READ HI..LO..riU 

220 IF HI < 999 THEN 230 

225 POKE 54296.. 0: POKE 53280.. 14 : POKE 532S1.6 

226 PRINT CHR*a47;-' :ENri 
230 DL = DU*DT 
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235 OOSUE 4e0:GOSUE 500 

£40 POKE 54277.. 136 

250 POKE 54278.. 1.36 

260 POKE 54273.. Hi 

270 POKE 54272 ..LO 

280 POKE 54276. 17 

290 FOR ri = 1 TO HL-HEKJ 

300 POKE 54277.. 

310 POKE 54278.. 

320 POKE 54273.. 

330 POKE 54272,0 

340 POKE 54276 ..0 

360 OOTO 210 

400 HO 18: CO = e;;];F HI = 8 THEN RETURN 
418 IN = IHT'::r!U+.5> + l 
420 HO = H'::iN> 
430 CO caH> 
440 RETURN 

500 V = 41~HI : ir HI <- S THEN V = 2 

510 X = X + 2 -IF K < 40 THEN 520 

515 PR I NT CHR$ < 1 47 ) ; TAB <18>; CHR* C1S>;" PUFF " = X-0 

520 POKE S+X+V*40.. NO 

530 POKE C+X-i-V*40..CO 

540 RETURN 

1000 DRTFi 34.. 75.. 1..0.. 0, ,5.. 34.. 75.. .5.. 34,75.. 1,34.. 75.. 1 
1010 Dfm-l ;;;£ .. 34 .. 2 .. £5 .. 1 77 .. 1 , e .. .. 1 
1 020 CRTfl 2:;: .. 2 1 4 .. 2 .. ::5.4 .. 75 .. 1 , 34 , 75 , 1 
1030 DflTR 25, 177.. 3, 25, 177.. 1 

1 040 DRTFI 22 , 227 , 1 , 22 , 227 , 1 , 25 , 1 77,1,22, 227 , 1 
1 050 riRTR '21,1 54 ,1,25,177,1, 34 , 75 , 1 
1055 BRTR 34,75, .5,34,75, .5 

I860 TRTR 34,75, 1,28,214, 1,32,94, .5,34,75, 1.5 
1070 ERTR 38, 126,4 

1080 DflTR 34,75,1,34,75,1,34,75,1,34,75,1 
1 090 IIRTR 32 , 94 ,1,25,1 77 , 3 

1 1 00 BRTfi 28 , £14,1, 28 , 2 1 4 , 1 , 34 , 75 , 1 , 34 , 75 , 1 
1 1 1 DflTR 25 , 1 77 , 3 , 25 , 1 77 , 1 

1 1 20 DflTR 22 , 227 , 1 , 22 , 227 , 1 , 25 , 1 77,1, 22 , 227 , 1 
1 1 30 DRTR 21,1 54 , 1 .. £5 , 1 7'' 1 .. 34 , 75 , 1 . 5 , 34 , 75 , . 5 
1 1 40 BRTR 28,21 4 , . 5 , 34 .. ~'5 .. 1 .5,32,94,1,38,126,1 
1150 DflTR 34 , 75 , 2 , .. , 1 .. 32 ..94,1 

1 160 DRTR 34, 75, 1 ,0,0, . 5, 34, 75, . 5, 34, 75, 1 , 34, 75, 1 
1 1 70 DflTR 32 , 94 , 2 , 25 , 1 77 , 1,3, , 1 
1 1 80 DRTfl 28 ,214,2 , 34 , 75 , 1 , 34 , 75 , 1 
1 1 90 DflTR £5 , 1 77 , 3 , £5 , 1 ^'7 , 1 

1 200 DRTR 22 , 227 , 1 , 22 , 227 , 1 , 25 , 1 77 ,1,22, 227 , 1 
1 2 1 DflTR £1,154,1,25, 1 77 ,1,34,75,1 
1215 DRTR 34 , 75 , . 5 , 34 , 75 , . 5 

1220 DflTR 34,75, 1,28,214, 1,32,94, .5,34,75, 1.5 
1225 DRTfl 38, 126,4 

1230 DRTR 34, 75, 1,6,©, . 5, 34, 75, .5, 34, 75, 1 , 34, 75, 1 
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1 240 EflTR 32 , 34 .. £ .. £5 .. 1 77 ,1,0 ., . :l, 
1250 DflTR £S.. £14. 2,. 34.75. 1.. 34.. 75, 1 
1260 l)nm 25. 177.3..25. 177.. 1 

1270 riRTfl 22.227. 1.22.227. 1.25. 177. 1.22.227. 1 

1 280 DflTR 2 1 . 1 54 . 1 . 25 . 1 77 . 1 . 34 . 75 . . 5 

1 £35 CRTfl 34 . 75 ...5.34.75.-5 

1290 DRTfl 28. 214. 2. 34. 75. 2 

1 300 DflTFl 32 . 94 . £ . 38 . 1 26 . £ 

1310 DflTR 34.75.4 

3000 DRTfl 333,993,4 



REflDV. 



EASY CHANGES 

1 . To change the tempo (speed) of the tune, change the value 
of DT in line 190. Larger values cause all the notes to be held 
longer, slowing down the tune. For example, to make the 
tune go faster, change line 190 to look like this: 

190DT = 200 

To make it go slower, use: 

190 DT = 400 

2. Lines 240, 250 and 280 set the ATTACK/DECAY, SUS- 
TAIN/RELEASE and WAVEFORM settings, respectively. 
Using Appendix P of the Commodore 64 User's Guide, ex- 
periment with these settings to see if a more pleasing sound 
can be obtained. 



MAIN ROUTINES 

120- 200 Initializes variables, clears screen, sets background 
color. 

210- 220 Reads DATA statements. Determines if at end of 
tune. 

230 Calculates duration of note. 

235 Performs subroutines to set graphics character and 

color of note to be played. 
240- 290 Plays note and holds for calculated duration. 
300- 360 Stops playing note and returns to get next note. 
400- 440 Subroutine to get graphic for note to be played and 

color to be used for graphic. 
500- 540 Subroutine to determine graphic position on screen. 

Also tests for screen overflow and resets with title. 
1000-3000 DATA statements for tune being played. 
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MAIN VARIABLES 



N 


Array of graphics characters. 


C 


Array of color codes associated with each graphics 




character. 


X 


Current screen position (X-axis). 


Y 


Current screen position (Y-axis). 


NO 


Current graphics character. 


CO 


Current graphics color. 


DT 


Base number for calculation of duration of each 




note. 


DL 


Duration of current note. 


HI 


High frequency of current note. 


LO 


Low frequency of current note. 


DU 


Basic duration of current note. 


D 


Loop variable. 


S 


Start of CRT area for graphics. 


c 


Start of CRT area for color. 



SUGGESTED PROJECTS 

1 . Write your own tune, using the format supplied. Add sup- 
port for sixteenth notes to the program and graphics 
display. 

2. As shown, this program only uses VOICE 1. Modify the 
program to use VOICE 2 and VOICE 3 as well and add 
some chords to the music. 

3. Improve the graphics to actually display the note being 
played instead of just the descriptive letter. 
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STOPWATCH 



PURPOSE AND DISCUSSION 

If you are only using your Commodore 64 for making calcula- 
tions or other "normal" computer work, you are missing out on 
something. The Commodore 64 has a very accurate internal 
timer, which can be very useful. This progam uses it in a very ob- 
vious way— as a stopwatch. Using a computer as a stopwatch 
gives you the advantage of leaving the last few timings on the 
screen for reference while you are making the next timing. Of 
course, the computer is "smart" enough to allow you to get "lap" 
times as well as the final time. 

HOW TO USE IT 

The opening messages from the program show you your two 
options. Pressing the S key causes the stopwatch to start (or 
restart, if you had already started it). Pressing the F key a second 
time causes the program to show you both the time since the 
start and the time since the last F was pressed. This lets you see 
interim or "lap" times. Pressing the E key ends the program. 

For example, suppose you want to time a one-mile race that is 
run as four laps around a quarter-mile track. Before the race 
begins, start the program running with the RUN command. 
When the starting gun is fired to start the race, press the S key. 
At the end of the first lap around the track, press the F key. This 
causes the program to show the time since the race started. 
When the second lap is completed, press the F key again. The 
program will show the time of the second lap. Press the F key 



320 More than 32 BASIC Programs for the Commodore 64 Computer 



again when the third and fourth laps are finished to get the time 
since start and lap times. Of course, the time since start at the 
end of the fourth lap is the final time of the race, even though 
the stopwatch keeps running. At that time, you can either press 
S to restart the stopwatch (when the next race begins) or press 
the E key to stop the program. 

The internal timer of the Commodore 64 is accurate to one 
sixtieth ('Ao) of a second. The program displays the time as 
though it is accurate to .01 seconds. As a result, the second 
decimal place is not precise. The actual time is within plus or 
minus .02 seconds of the time that is shown. Also, because of the 
computation time required to display each timing, wait at least 
.4 seconds between consecutive F suppressions. 



SAMPLE RUN 




First the operator presses S to start the stopwatch. After about one 
minute and 22 seconds, he or she presses F. After another 43.46 
seconds, F is pressed again. 
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PROGRAM LISTING 

REflDV. 



100 REM: STOPWATCH 

lie REM: COPVRIGHT 1983 

111 REM: TOM RUGO. PHIL FELDMRN. RHD 

112 REM: WESTERN SYSTEMS GROUP 
120 PRINT CHR*<147> 

130 PRINT TREaS) C.HR$< 1S> ; "STOPWRTCH" : PRINT : PRIN1 

140 PRINT" S = STRRT OR RESTRRT" 

150 PRINT" F = FINl:5H (INTERIM OR FINRL>" 

155 PRINT" E = END PROGRRM" 

160 PRINT: PRINT"? "; 

170 GET R*:IF R$="" THEN 170 

180 W=TI:PRINT R* : S* = R* 

1.90 IF R*-="S" THEN 30© 

200 IF R*="F" THEN 400 

205 IF R$="E" THEN END 

210 GOTO 170 

300 L=W : S==W : PR I NT " STRRTED " 

310 GOTO 16'0 

400 J«W-S : GOSUB 500 

41.0 PRINT"SINCE :=;TRRT = " Ril? 

420 IF S=L THEN L==W : GOTO 160 

430 J=U~L:GOSLlE 500 

440 PR I NT" SINCE LAST 'F' = " ; Rf 

450 L=W:CrOTO 160 

500 J=J/60 : ..T= I NT a 00* J > : J= J/ 1 00 : R*= " " 

510 IF J>60 THEN 530 

520 R*~R*+STRiE:CT> + " SECONDS" : RETURN 

530 K= I NT •:. ..T/60 > : J=J- <. K*60 ) : J= I NT •'. 1 00*J > : J =J/ 1 S0 

540 R*=STR* (>::■;' + " MINUTES.. ": GOTO 520 

RERDV. 



EASY CHANGES 

1 . To always display the time in seconds (instead of minutes 
and seconds when the time is greater than 60 seconds), delete 
line 510. 

2. To eliminate blank lines on the screen (thus allowing more 
timings to be retained on the screen), eliminate the first 
PRINT and colon on hne 160. 

3. To display the time to the nearest tenth of a second (instead 
of the nearest hundredth), change the four constant values 
of 100 in Unes 500 and 530 to 10. 
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MAIN ROUTINES 



120-150 Displays the title and two options. 
160-170 Displays question mark and waits for a key to be 
pressed. 

180-210 Saves time of key suppression. Checks which key 
was pressed. 

300-310 Saves starting time and displays STARTED. 
400-450 Displays total and lap times. 
500-540 Subroutine to convert "jiffies" in J into minutes and 
seconds in R$. 

MAIN VARIABLES 

R$ Keyboard character pressed by operator. Also used 

when displaying minutes and seconds as a string. 
W Work variable for saving current time. 

L Time that last S or F was pressed. 

S Starting time. 

J Elapsed time (in jiffies) to be displayed. 

K Number of minutes to be displayed when elapsed 

time is greater than 60 seconds. 



SUGGESTED PROJECTS 

1 . Instead of displaying only the last lap time, display the last 
two or three lap times. Or, display all lap times since the 
start by saving each time in an array. Allow for at least 
twenty entries. 

2. Allow for the possibility of the time automatically resetting 
to zero during a timing (by passing midnight or 24 hours 
since the Commodore 64 was turned on). Allow 24 hours 
worth of jiffies to W if W is less than S. 



WEEKDAY 



PURPOSE AND DISCUSSION 

Weekday is a simple program that provides the day of the 
week for any date in the twentieth century. Its basis is an old 
parlor trick described by Scot Morris in the GAMES section of a 
1981 issue of OMNI magazine. 

HOW TO USE IT 

The program starts by displaying its title and asking for the 
month, day and year for which the conversion is desired. You 
enter the three items separated by commas and then press the 
RETURN key. The program then validates that a good date was 
entered and then calculates the day of the week and displays it. It 
then asks if you wish to enter another date or end the program. 
If you reply Y, it prompts you for another date. If you reply N, 
the program ends. 
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SAMPLE RUN 




The program requests that a date be entered and the operator replies 
with December 7, 1941. 




The program calculates that December 7, 1941 was a Sunday, then asks 
if another date is to be entered. 



I 
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PROGRAM LISTING 



REflDV. 



100 REM: WEEKHRV 

110 REM: COPVRIGHT 19&2 

111 REM: TOM RUGG.. PHIL FELDNFlN.. RHD 

112 REM: WESTERN SVSTEMS GROUP 
120 PRINT CHR* •:: 1 47 > : CLR 

130 DIM riW*'::S>..MI'::i3> 

1 50 im- ') = " :;;;flTLiRDflv " : iu$ a ) = " sundry 

1 60 DW* 2 > ~ " MOHCRV " : DU* < 3 > = " TUESDflV " 
1 70 DW* C 4 > = " WEDHESDRV " : DW* < 5 > = " THURSDRV " 
1S0 DW*':: 6::-= "PR I DRV 

190 Mia> = l :MI';£>=4:MI'::G>=4:MI'::4:>==0 

200 MI'::5>=^£:MI'::6>=5:MI''?;=0:MI<8>==3 

210 MI 0>=6 : MI < 10) = 1 : Ml C 1 1 ;'=4 : Ml < 12>=S 

300 PRINT TRBa.0>.; "W E E K D fl V": PRINT 

310 PRINT :PRINT"ENTER MONTH.. BRV RND VERR.. " 

320 PRINT"SEPRRRTED EV COMMRS CMM.. DD.. VV> . " 

330 INPUT MO.. DR/t'R 

340 IF MO < 1 OR MO > 12 THEN 586 

350 IF Dfl < 1 CR DR > 31 THEN 508 

360 IF 't'R < OR VR > 99 THEN 500 

365 OCSUE 540 

370 WO == '::VR.--'4>+S-'R 

380 WO = l.J0+Mia'10>+DR 

390 WS = m 

400 UG = IHTGAQ/yy 

410 WO = WS-'::wn*7> 

420 PRINT MO.: "/".; DR.; ;VR; " = ";DW*';W0:) :PRINT 
430 INPUT"nNOTHER DATE Ct' OR N>";C* 
440 IF C* = "N" THEN END 
450 IF C* == "V" THEN 310 
460 GOTO 430 

500 PRINT" INPUT DRTE IS INVALID" 
510 END 

540 IF MO = 4 AND DR > 38 THEN 508 

550 IF MO == 6 AND DR > 30 THEN 588 

560 IF MO = 9 RND DR > 38 THEN 588 

570 IF MO = 11 RND DR > 38 THEN 588 

5S-0 IF MO <> 2 THEN RETURN 

680 IF DR < 29 THEN RETURN 

610 IF DR > 29 THEN 588 

628 WV = IHT(:'t'R,-'4> 

630 WV = VR - a.JV*4> 

640 IF WV <> THEN 580 

650 RETURN 



RERDV . 
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EASY CHANGES 

1 . To have the program immediately request another date in- 
stead of asking if you want another, delete lines 430, 440 
and 450. Also, change line 460 to: 

460 GOTO 310 

MAIN ROUTINES 



120-210 Initializes variables and sets up arrays. 
300 Displays title. 

310-330 Gets month, day and year from operator. 

340-365 Validates input date. 

370-420 Computes and displays day of the week. 

430-460 Prompts operator for option to end program or 

supply another date. 
500-510 Issues error message and ends program, if input 

date is invalid. 

540-650 Subroutine to validate date in February, allowing 
February 29 if it is a leap year. 

MAIN VARIABLES 

DW$ Array of valid days of the week. 

MI Array of numeric values used to adjust calculation 

depending on month. 
MO Month entered by operator. 

DA Day entered by operator. 

YR Year entered by operator. 

WO Work variable. 

WS Work variable. 

C$ Input string from operator for continuation option. 

WY Work variable. 



SUGGESTED PROJECTS 

1. Modify the program to work for other centuries. Research 
formulas that are more precise and don't require ad- 
justments. 

2. Read about the differences between the JULIAN and 
GREGORIAN calendars. This program is based on the 
GREGORIAN calendar. Write one that uses the JULIAN 
calendar as its basis. 
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Errata Offer 



All of the programs in this book have been tested carefully 
and are working correctly to the best of our knowledge. How- 
ever, we take no responsibility for any losses which may be suf- 
fered as a result of errors or misuse. You must bear the responsi- 
bility of verifying each program's accuracy and applicability for 
your purposes. 

If you want to get a copy of an errata sheet that lists correc- 
tions for any errors or ambiguities we have found to date, send 
one dollar ($1 .00) and a self addressed stamped envelope (SASE) 
to the address below. Ask for errata for this book (by name). We 
hope we won't have any errors to tell you about, in which case 
we'll try to send you some other worthwhile information about 
the Commodore 64. 

If you think you've found an error, please let us know. If you 
want an answer, include a SASE. 

Please keep in mind that the most likely cause of a program 
working incorrectly is a typing error. Please check your typing 
very carefully before you send us an irate note about an error in 
one of the programs. 

Western Systems Group 
Errata— Commodore 64 Programs 
P.O. Box 162896 
Sacramento, CA 95816 



MORE HELPFUL WORDS 
FOR YOU 



Computers for Everybody, 2nd Edition 

Jerry Willis and Merl Miller 

In a clear, understandable way, this new edition explains 
how a computer can be used in your home, office or at 
school. If you're anxious to buy a computer, use one, or just 
want to find out about them, read this book first. 
ISBN 0-88056-094-0 $7.95 

The Tenderfoot's Guide to Word Processing 

Barbara Chlrlian 

This informative book introduces word processing and its 
many uses. Described in great detail is a specific word pro- 
cessing program called Executive Assistant. 
ISBN 0-91 8398-58-4 $ 1 0.95 

Nailing Jelly to a Tree 

Jerry Willis and William Danley, Jr. 

This is a book about software. The emphasis is on learning to 
use the thousands of available programs that have already 
been written, and adapting them to your machine. 
ISBN 0-91 8398-42-8 $ 1 5.95 

Small Business Computer Primer 

Robert McCaleb 
Delta Group, Inc. 

Here is a solid overview of computer selection in layman's 
business language. The book contains unbiased information 
which tells you how to successfully evaluate and select a 
small computer system. 

ISBN 0-88056-067-3 $ 1 4.95 
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COMMODORE USERS TAKE 
NOTE . . . 



If you like More Than 32 BASIC Programs for the 
Commodore 64 Computer, you will appreciate having 
the programs on a cassette or diskette which is ready 
to run on your Commodore 64 computer. The soft- 
ware has a 'forever guarantee' (any problems, simply 
return the disk with $5 and we will send you a new 
one). Not only will it save your typing time, the 
cassette will save you time fretting about errors that are 
so easy to make. Interested? 



□ You bet I'm interested! Please send me the SV* 

diskette cassette for my Commodore 64. 

□ Please find my check in the amount of $19.95 and 
rush my Commodore 64 software to the address below. 

□ Please charge my VISA M/C 

and send to the address below. 

ACCT # Exp. Date 



Signature 



Name 



Address 



□ Please send me 
your catalog 
entitled Brain 
Food. 



City, State, Zip 

(To expedite your order, phone 1-800-547-1842 and charge 
to your VISA or M/C) 



BUSINESS REPLY CARD 

FIRST CLASS PERMIT NO. 143 BEAVERTON, OREGON 



Postage will be paid by addressee 

dilithium Software 

P.O. Box 606 
Beaverton, OR 97075 



COMMODORE USERS TAKE 
NOTE . . . 



If you like More Than 32 BASIC Programs for the 
Commodore 64 Computer, you will appreciate having 
the programs on a cassette or diskette which is ready 
to run on your Commodore 64 computer. The soft- 
ware has a 'forever guarantee' (any problems, simply 
return the disk with $5 and we will send you a new 
one). Not only will it save your typing time, the 
cassette will save you time fretting about errors that are 
so easy to make. Interested? 



□ You bet I'm interested! Please send me the SV* 

diskette cassette for my Commodore 64. 

□ Please find my check in the amount of $19.95 and 
rush my Commodore 64 software to the address below. 

□ Please charge my VISA M/C 

and send to the address below. 



ACCT#_ 



Exp. Date . 



Signature 



Name 



Address 



□ Please send me 
your catalog 
entitled Brain 
Food. 



City, State, Zip 

(To expedite your order, phone 1-800-547-1842 and charge 
to your VISA or M/C) 




BUSINESS REPLY CARD 

FIRST CLASS PERMIT NO. 143 BEAVERTON, OREGON 



Postage will be paid by addressee 

dilithium Software 

P.O. Box 606 
Beaverton, OR 97075 



NO POSTAGE 
NECESSARY 
IF MAILED 
IN THE 
UNITED STATES 



If you are a Commodore user, this 
book is chocl< full of programs 
designed specifically for your 
machine. The book includes games, 
applications, educational pro- 
grams, graphics, mathematics, and 
various miscellaneous programs. 
Each of the chapters fully docu- 
ments each program by providing a 
complete source listing of the pro- 
gram, its purpose, and how to use 
it. The authors also tell you how to 
adapt the programs by making sim- 
ple modifications. 

The programs are fully tested and 
ready to run! 

Software available in the book/soft- 
ware package of the same name. 



